JOUEZ AVEC LES 
INTERRUPTIONS 


JOUEZ LA 
BONNE CARTE 


SCRIBE 
Un traitement de texte simple et performant... 150 F TTC 


e 
h uw g  SSMONDOCUMENTARE 


Gestion de bases de données, de références et résumés 


av f de ITS, EVUES, artisan. 160 F TTC 


€ : GESTION DOMESTIQUE 
new 1$ Suivi de comptes bancaires, statistiques, placements... 180 F TTC 
à GESTION DE FICHES 
. LÉ Création et gestion de fichiers divers, sélection sur tout 
ensemble de rubriques, formats d'éditions paramétrables 180 F TTC 
AGENDA 


Pour mémoriser et gérer rendez-vous, travaux à faire, dates 
importantes... Pour éditer plannings quotidiens, hebdomadaires … 150 F TTC 


CARNET D'ADRESSES 
Gestion de fichiers d'adresses, éditions d'étiquettes, de répertoires .150 F TTC 


CAHIER DE TEXTES 


k % Pour transformer votre ordinateur en cahier de texte électronique... 150 F TTC 


$ 
+ 


L INSUS 


Société de Services et de Conseils en Informatique 


À RETOURNER A : 
LOGYS, 3, rue Ferdinand-Buisson, 92110 CLICHY - #3 730.04.36 


Veuillez m'adresser les progiciels suivants : 


Ci-joint, chèque de Fa l'ordre de LOGYS 


Nom 
Adresse 


TARIFS EN VIGUEUR : SEPTEMBRE 1985 


PAS D'ABONNEMENT RETROACTIF — DEBUT ABONNEMENT=-NUMERO SUIVANT LA RECEPTION DU BULLETIN 


MÉGAHERTZ 
Revue Européenne d'Ondes Courtes 


ABONNEMENT D'ESSAI SUR 3 MOIS : 50 F (valable une seule fois) 
ABONNEMENT 6 MOIS AU PRIX DE 115 F AU LIEU DE 138 F | 

12 NUMEROS POUR LE PRIX DE 230 F AU LIEU DE 270 F 

(+ 70 F étranger) 


Ci-joint un chèque (libellé à l’ordre des Editions SORACOM) 7 


d'un montant de francs. Î 
FIÉROMÉ sur: uestretanss n Ne 


THÉORIC, La Revue des Passionnés d'’Oric 


ABONNEMENT POUR UN AN — 11 NUMÉROS : 270 F 
ABONNEMENT 6 MOIS = 160 F 
(Tarif avion : + 140 F) 


ATTENTION : pour les mois de juillet et août, il n'y a qu'un numéro. 


Ci-joint un chèque (libellé à l'ordre des Editions SORACOM) 
d'un montant de 


CPC, La Revue des Utilisateurs d'Amstrad 


ABONNEMENT POUR UN AN — 11 NUMÉROS : 175 F 
6 MOIS : 99 F — D'ESSAI 3 MOIS : 50 F 
(Tarif avion :+ 120 F) 


Ci-joint un chèque (libellé à l'ordre des Editions SORACOM) 
d'un montant de francs. 


Prénom 


POUR LES ANCIENS NUMÉROS, UTILISEZ LE BON DE COMMANDE SPECIAL 

Ci-joint un chèque libellé à l'ordre de : Éditions SORACOM. 

Retournez le(s) bulletin(s) ou une photocopie à : 

Éditions SORACOM — Service Abonnements — Le Grand Logis — 10, Avenue du 


Général de Gaulle — 35170 BRUZ. 


AVE CESAR crie la foule en délire qui vous acclame. Le jeu commence, 
et vous êtes à présent César d'une des 9 provinces au relief particulier 
que comporte ce monde. A la tête d'une petite troupe et de ses 3 consuls, 
vous disposez d'un stock de vivres, et au fil des saisons vous devrez, par 
l'intermédiaire des consuls, mettre économiquement en valeur votre pro- 
vince. Construisez moulins, écuries, forges. N'oubliez pas les catapultes, 
car vous devrez monter de grandes expéditions pour annexer des pro- 
vinces voisines. Assiégez les cités ennemies, rédigez des traités d'alliance, 
soyez fort et rusé, afin de construire un Empire immense et invincible. 
Utilisez au mieux l'accroissement démographique et veillez à l'approvi- 
sionnement de la population car la famine menace. 

Au fil du jeu, devenez un des plus grands stratèges de l'antiquité en 
recréant en une fresque passionnante les héroïques moments de 
l'histoire de l'humanité. AVE CESAR! 


N'avez-vous jamais rêvé de participer à un de ces rallyes mondia- 
lement connus ? Et au volant d'une superbe voiture de sport aux 
reprises foudroyantes devenir l'idole des foules en remportant la 

victoire ? Alors n'hésitez plus ; chargez “Rally ||”, installez-vous 

dans votre siège et bouclez votre harnais de sécurité car vous 
allez vivre des moments inoubliables. Rally Il est entièrement 
reconfigurable. Vous pouvez créer votre propre parcours. 
Le circuit initial se déroule en dix étapes que vous devez 
réussir pour terminer dans les voitures classées. Vous 
devrez traverser à toute allure des zones météorolo- 
giques et topographiques les plus variées qui influen- 
ceront sensiblement le comportement de votre engin. 
Très vite, la conduite sportive n'aura plus aucun 
secret pour vous et Vous Vous surpasserez en 
pilotage de nuit, sur la glace, sous la pluie, dans 
le désert ou même en plein brouillard. Jeu 100 % 
langage machine, où la route est représentée en 
3D avec une rapidité étonnante. Le graphisme 

de ce jeu le place parmi les meilleurs du moment. 


Superbe jeu d'action en 3D. 
A bord de votre vaisseau de combat intergalactique, 
vous voici aux prises avec des vagues successives de 
vaisseaux puissamment armés aux abords d'une planète 
* inconnue. Vous allez devoir les vaincre malgré les météo- 
ites qui se jettent sur vous, les toupies ennemies lancées du 
OI et les vaisseaux kamikazes pour enfin détruire la base ennemie. 
De nombreux astronefs tenteront de vous prendre à revers et votre 
. seule chance de les éviter sera de bien observer votre radar qui 
2 indiquera leur position. Vous pourrez aussi évoluer dans les profonds 
Bçanyons ou dans les tunnels qui sillonnent la planète. Pour refaire 
B plein de carburant, détruisez les bidons posés sur le sol. Essuyez 
sueur de votre front, agrippez-vous au manche et bon courage. 


vnisagaun: npsege _ 53, rue de Paris 92100 BOULOGNE 
1 Tél.: (1) 825.11.33 - Télex: LORI 631748 F 


Demandez “LORICIELS NEWS” W 1 


Le journal d'information sur nos produits 


RS Was à ‘à PRIT 
js | ABC 


CP: 


Joindre 3 timbres à 2,20 F pour participation aux frais d'envoi © 


Un éditeur se présente : ARG .. 38 


Vu en Grande-Bretagne Soirée mondaine 

Le coin du libraire Initiation à l’assembleur 
Banc d'essai des logiciels Des couleurs plus claires 
Logiciels d'outre-manche Jouez avec lés interruptions ... 
Les nouvelles Turbo Pascal 

Rubrique PME/PMI Le coin bidouille 

Les fondations d'un Trucs et astuces 
programme Basic Les disques CPC 
Redéfinition de caractères .... Routines au-dessus 
Carrés magiques de tous soupçons 

Les records Kilobyte 


Petites annonces 


nie: Le Micronaute | | LENS rat 


LE SPECIALISTE MICRO 
lot CPC 464 AMSTRAD à NANTES INFORMATIQUE 


464-664-6128 Revendeur qualifié 


Formation sur AMSTRAD périphériques conseil si 
Nombreux logiciels et + de 100 logiciels Point pilote 

périphériques disquettes, cassettes nouveautés, softs 

semi-pro ou particuliers et périphériques 

39, rue de la Comédie A partir du 1°" septembre 

(près du Théâtre) 9, rue Urvoy de St. Bedan 96, Av. Alfred Maës 
82000 MONTAUBAN 44000 NANTES 62300 LENS 

Tél.: (63) 66.27.22 Tél.: 40.69.03.58 Tél.: (21) 28.72.44 


LA GROSSE TETE 
A VOTRE AMSTRAD 


Avec son « kit-programmation Turbo Pascal »,Fraciel vous donne la possibilité 
d'utiliser pleinement toutes les ressources de votre AMSTRAD, 
à la manière d’un véritable ordinateur professionnel. 


TURBO PASCAL TURBO TUTOR 


PLUS VITE, PLUS FACILE, Turbo Tutor c'est un ensemble formation pour 
LE LANGAGE QUI VOUS PERMET apprendre et maîtriser « sans peine » le Pascal 
D'UTILISER À FOND et toutes les ressources de Turbo Pascal. Turbo 
VOTRE ORDINATEUR Tutor s'adresse aussi bien aux débutants qu'aux 


programmeurs confirmés auxquels il explique 


: te les notions les plus « pointues ». 
e Vitesse de compilation Turbo Tutor ne coûte que 400 F. 
Turbo Pascal compile en mémoire et en une seule Il comprend 1 manuel en français (200 pages) et 


1 disquette reprenant tous les exemples du livre. 


passe, à la vitesse d'environ 100 lignes/seconde. 


+ Editeur-compilateur intégrés 
L'ensemble éditeur-compilateur réside en 
mémoire. Lorsque votre programme est entré, 
vous le compilez en tapant simplement 

sur une touche. 

Si une erreur survient à la compilation, 
l'éditeur est appelé et l'erreur retrouvée dans 
le code source. 


+ Un langage toutes applications 
Toutes vos applications peuvent être écrites 
avec Turbo Pascal : gestion, enseignement, 
calculs, logiciels systèmes, jeux, graphisme, 
recherche, etc.. 
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CPC est une revue mensuelle 
totalement indépendante d'AMS- 
TRAD (GB) et d'AMSTRAD 
FRANCE. 


CLUB AMSTRAD OÙ PAS ? 


C'est tout à fait certain, le nombre des clubs AMSTRAD va aller 
en augmentant. || y aura sans doute le club AMSTRAD FRANCE, 
les clubs de certains professionnels (c'est pratique, c'est facile 
et cela peut rapporter !). 

Moyennant une cotisation, vous recevez, qui un journal, qui une 
carte d'achat ou un bulletin de club. Dans ce dernier cas, c'est 
déjà plus sérieux, surtout s’il s’agit d’un club structuré, sous forme 
d'association, par exemple. 

Alors, devons-nous suivre la mode (vous prendre au passage un 
peu de ‘‘fric'’) ou poursuivre nos actions comme nous l'avons 
toujours fait jusqu'à ce jour ? Notre choix est fait. Il l'a été dès 
le premier numéro. L'ensemble des lecteurs de cette revue est 
membre d'office de ce que nous n’appellerons pas un club. Cela 
ne nous empêche en aucune façon d'être très efficaces, et nous 
n'en voulons pour preuve que l'exemple suivant : 

Notre lecteur, Monsieur VOISINE, nous a écrit, nous signalant 
avoir acheté (dans une grande surface) son appareil avec une 
notice en anglais. Malgré des courriers et des appels téléphoni- 
ques, impossible d'obtenir cette notice en français, obligatoire. 
l'a donc fait appel à nous, et nous avons réagi immédiatement. 
48 heures après nos menaces, il recevait un appel l'’informant 
que la notice était disponible ! 

Si nous ne sommes ni un club officiel, ni une association de 
consommateurs, l'équipe de CPC s’estime dévouée à ses lecteurs. 
C'est depuis des années la politique et la force de notre société ! 
Dans quelque temps, nous mettrons à la disposition des lecteurs 
de CPC un numéro de téléphone spécial. Mais attention ! comme 
nous l'avons fait remarquer dans le numéro précédent, il est hors 
de question de prendre en charge vos questions sur des articles 
d'autres revues, vous le comprendrez sans aucun doute. 
Aussi, si vous avez des questions ou des problèmes à résoudre, 
vous voudrez bien joindre votre numéro d'abonné ou le coupon 
numéroté que vous découperez dans chaque mensuel. 

Dans tous les cas, il est évident que l’ensemble de nos abonnés 
aura toujours priorité dans tous les domaines, y compris les prix 
que nous pratiquons | 

Alors, faites le compte ! Pour 18 francs par mois, vous êtes mem- 
bre d’un club | 


L'équipe de la rédaction 


AVERTISSEMENT AUX AUTEURS 


Nous avions prévu vous proposer dans ce numéro de 
CPC un programme de dessin intitulé CPC PAINT, écrit 
par Michel CHANAUD, auteur de AWARI et MATRIX 
que nous avons publiés dans CPC n° 2. Le hasard nous 
a fait découvrir, quelques heures avant la remise des 
documents à l'imprimeur, ce même programme dans 
une revue concurrente. Dans le souci de ne pas offrir 
à nos lecteurs des programmes figurant dans d’autres 
revues, nous vous demandons de n'envoyer à la rédac- 
tion de CPC que des programmes originaux et que vous 
n'avez pas proposés ailleurs. 


Tirage 25 000 exemplaires 


CPC n° 4 


Les articles et programmes que nous publions 
dans ce numéro bénéficient pour une grande 
part du droit d'auteur. De ce fait, ils ne peuvent 
être reproduits, imités, contrefaits, même par- 
tiellement, sans l'autorisation écrite de Ja 
Société SORACOM et de l'auteur concerné. Les 
différents montages présentés ne peuvent être 
réalisés que dans un but privé ou scientifique, 
mais non commercial. Ces réserves concernent 
les logiciels publiés dans la revue. 


coupon à joindre 


à toute 
correspondance 


Vente Informations Services Micro-Ordinateurs 


Micro-ordinateurs familiaux 


84, bd Beaumarchais - 78011 Paris 82, bd de Reuilly - 78018 Paris 
Métro Bastille ou Chemin Vert Métro Daumesnil ou Dugommier 
De 10 h ä 20 h sauf dimanche. De 14 h à 20 h sauf dimanche et lundi 


\ 
RECEREF ON 


EXCLUSIVITE VISMO 
Comptabilité générale S / K7 450,00 
Comptabilité générale S / DISK 750,00 
LOBIGISLS K7 POUR GFE 464 Er 664 
LORICIELS | POWER SOFT 


RALLYE I 200,00 | EASY CALC 180,00 
EMPIRE 250,00 | EASY FILE 180,00 
pu _— 8D FIGHT 180,00 | EASY BANK 180,00 
VU MYSTKIKEKANKOI 180,00] EASY GRAPH 180,00 
NORSOFT  |MACADAMBUMPER 160,00 PLANETE BASE 140.00 
TYRANN 185,00 | MILLIONNAIRE 140,00 
AQUAD 110,00 MICRO SAPIENS 140,00 ne ET PERIPHERIQUES 
PLAYBOX 100,00 | AMELIE MINUIT 140,00 DMP1 2.480,00 
; SYNTHETISEUR VOCAL 495,00 
COBRA COMPILATEUR 180,00 | CRAYON OPTIQUE 39500 


MTRE GRDE VITESSE 160,00 | MANAGER 140,00 
PINBALL 140,00 | CHIROLOGIE 140,00 
NIGHT BOOSTER 120,00 | 3D MEGACODE 180,00 
STRESS 120,00 | GUTTOR 120,00 


CORDON MAGNETO / 664 65,00 
CABLE IMPRIMANTE 200,00 
RALLONGE ALIMENTATION ET VIDEO 120,00 
LECTEUR DISQUE DD1 1.990,00 
LECTEUR DISQUE FD1 1.590,00 


LIVRES ADAPTATEUR PERITEL 400,00 
Super jeux AMSTRAD (PSI) 120,00 FF 
AMSTRAD en famille 120,00 FF 


EXPLOITEZ VOTRE AMSTRAD 
fourni avec la K7 programmes : 138,00 FF 
NOUVEAU ! CREDITINFORMATIQUE - réponse en 48 heures après examen du dossier dans toute la France 
Logiciels + Accessoires pour les appareils cités aux prix VISMO 
NOMBREUX LOGICIELS - PROGRAMMES ET JEUX VISMO 
464 Couleur .. 3.990,00 


BON DE COMMANDE sus risque)à ratoerner 411500, [ouome | Dengronn | Pmunriic” 
DRE 664 Vert 3.790,00 


84, Boulevard Beaumarchais 75011 PARIS É- - 
A or je. 
ns || ga couleur 5.290,00 


NOM me PIENOM 
6128 Vert ..... 4.490,00 
6128 Couleur .. 5.990,00 


ORDINATEURS AMSTRAD 
464 Vert ..... 2.690,00 


Adresse 


PomcipohOoN RON Je DORE JeMmbolioge 30 


Code Postal 
Dote Signature 


O Desrre recevoir catalogue, 
20 F (remboursable a la 1° commande) 


VISMO EXPRESS £ Livraison dons toute la France Nous encossons ve: cheques O | expedihon de votre commande 10: NO1s 0 10 reCeD'Oon Je vos ord'es 


LORICIELS c'est: 

— plus de 120 titres pour : AM 
THOMSON, APPLE, MSX, ORIC, ATARI, 
COMMODORE, SINCLAIR, MATRA... 

— Des jeux, des utilitaires, des éducatifs, 

Oncession, a des langages, dont Forth, Logo, 

* — et si comme nous,vous recherchili es Assembleur, Basic. 

idées innovatrices de demain, — L'univers fantastique du Logiciel. 


alors contactez au plus tôt : 
LORICIELS-département Edition 

53 rue de Paris 92100 BOULOGNE 
Tél. :(1)825.11.33. Télex : LORI 631748 


BE: 


Griciels 


vous aimez la qualité sans 


* 


COURRIER 


N'essayez pas de charger un 
‘’morceau'" de programme : ce 
n'est pas prévu pour | 


Hervé DREGE ‘ 


… je n'arrive pas à charger le pro- 
gramme intitulé ‘’TGVDEF”' de 
Meurtre à Grande Vitesse”. 
Les logiciels du commerce ne 
sont pas prévus pour être char- 
gés en ‘’morceaux"'’. Il est normal 
que l'ordinateur refuse de pren- 
dre un programme après le début 
de la cassette. Ceci est souvent 
lié à des problèmes de protection 
obligeant l'utilisateur à lire la 
bande dès son début. 


M. WILLEME 
25 EXINCOURT 


‘*.. je vous suggère de traiter les 
sujets suivants : statistiques, tra- 
cés de biorythmes, calcul de l'im- 
pôt sur le revenu...” 

Message recu, cher lecteur ! 
Autant que faire se peut, nous 
tiendrons compte de vos désirs. 
Nous avons déjà publié un pro- 
gramme de ‘‘biorythme’’. C'est 
aussi pour répondre à une 
demande sans cesse croissante 
que nous publions dans ce 
numéro un programme de 
‘’HARDCOPY"" quasi universel. 


Alfred LEPRETRE 
92 CHATENAY-MALABRY 


‘*.… les informations sur bandes 
magnétiques, peuvent-elles se 
présenter sous une forme diffé- 
rente de blocs de 2k ?” 

Sur plusieurs logiciels commer- 
cialisés, on trouve maintenant 
des formats de sauvegarde diffé- 
rents du format classique AMS- 
TRAD. Ceci est souvent fait dans 
un souci de protection, les cas- 
settes débutant par un ‘‘loader'’, 
programme de chargement cons- 
tituant une routine capable de lire 
le format modifié. 


10 


Georges PEREZ 
24 CHAMPAGNE DE BELAIR 


‘Existe-t-il une sorte de diction- 
naire donnant les équivalences 
entre les différents ordinateurs ?°° 
Bien que votre question soit 
assez imprécise, nous croyons 
comprendre que vous recherchez 
un ouvrage traitant des différents 
Basic. Il existe plusieurs livres de 
la sorte, les plus célèbres étant 
certainement le ‘‘Dictionnaire du 
Basic'’ de PSI et le ‘’Guide du 
Basic’ chez Mac Graw Hill. 

PRE EN ENT PEL ES EST RE EE SEE SRE] 


Jacques MARQUET 
31 BALMA 


“J'ai acheté EASY-AMSCALC, 
tableur que je destine à une petite 
comptabilité prévisionnelle. L'en- 
nui est que la documentation est 
en anglais...” 

Nous ne saurions que trop 
conseiller à nos lecteurs d’atten- 
dre avant de se précipiter sur ce 
logiciel, et de faire le tour pour 
savoir ce qui existe en équivalent, 
pour comparer les caractéristi- 
ques. en incluant la qualité de 
la documentation. Pour un utili- 
taire, la rédaction de la notice 
importe au moins autant que la 
réalisation du logiciel. Il est inad- 
missible qu'un utilisateur soit 
obligé de ‘‘décrypter’’ une notice 
écrite par l’auteur du logiciel (for- 
cément imprégné de son travail) 
et qui n’a jamais été soumise à 
des néophytes. 

rar eue ame eus dur Re] 


EST-IL POSSIBLE DE 
SIGNALER A L'ECRAN 
LE MODE MAJUSCULES ? 


Sur les AMSTRAD, rien n'a été 
prévu pour indiquer à l'utilisateur 
l'état de la ‘‘’bascule'’’ CAPS 
LOCK. D'autres ordinateurs ont 
une petite diode électrolumines- 
cente ou un rappel à l'écran (ex.: 
ORIC) de l’état du clavier. 

Vous trouverez, dans CPC, un 


CPC 
AO, one du Gin de Gel 


35 430  BRuz 


moyen utilisant les interruptions 
permettant de palier à ce défaut. 
Voilà qui répondra à plusieurs 
demandes |! 

RSR SR EEE RO LEP RAR EE REC TR ES 


LE 8° BIT ABSENT... 


Par souci d'économie, et pour 
simplifier le hard, les concepteurs 
d'AMSTRAD ont mis en place 
une sortie imprimante non 
conforme avec la norme CEN- 
TRONICS, puisque le 8e bit est 
absent. Cela pose bien des pro- 
blèmes sur les imprimantes qui en 
ont besoin pour passer en ‘‘qua- 
lité courrier'’ ou en ‘‘mode gra- 
phique'”". Parfois, le simple for- 
çage à 1 (au +5 V) de cette ligne 
à l'entrée de l'imprimante pourra 
résoudre le problème, mais en 
règle générale, il faudra passer 
par une interface spécialisée. 
Nous envisageons actuellement 
la description, dans nos colon- 
nes, d'une telle interface. 


AN 
NSERRACEN 


Distributeur Agréé 
Conseil et SAV 
de la région Centre 
pour AMSTRAD FRANCE 


Ne soyez pas 
consommateur ; venez 
bénéficier de nos 20 ans 
d'expérience en informatique 


23, rue de la Mouchetière 
Z.I. ingré 
45140 St. Jean-de-la-Ruelle 
Tél.: (38) 43.11.83 
ou (38) 72.22.83 


AMSTRAD CPC 6128 


CPC 664 
C] avec moniteur couleur ................... 5290 F 
[] avec moniteur monochrome .............. 3790 F 
CPC 464 
avec moniteur couleur ................... 3990 F 
avec moniteur monochrome .............. 2690 F 
CO 1er lecteur de disquettes. .............. 2490 F 
© 2ème lecteur de disquettes. ............ 1990 F 


GRAPHISCOP II 


Conçue et fabriquée en France, la tablette gra- 
phique à digitaliser "GRAPHISCOP Il" vous per- 
mettra de dessiner à la fois sur un papier et 
à l'écran en utilisant la résolution graphique 
maximale de votre micro-ordinateur. 
“GRAPHISCOP Il" est livrée avec un boîtier 
interface connectable à votre micro, un manuel 
d'utilisation, un logiciel sur cassette ou disquette. 
La partie principale du Source est en Basic pour 
permettre à l'utilisateur d'a adjoindre de nouvelles 
fonctions. 


à ( — 
ER 


[ GRAPHISCOP II (avec interface) ..….…. 1490 F 


—— NOUVEAU 


MY OPUS ni nnessdonsncncsoncensuse 
extension 64 K pour CPC 464 ou 664 ..... 


on 


Magnétophone 

Ce magnétophone spécialement conçu pour les 
micro-ordinateurs vous évitera bien des soucis. 
Entrée DIN ou Jack. Niveau règlable. Témoin 
sonore et lumineux. Alimentation intégrée 


magnétophone ..................... 95 F 
Rallonge alimentation + vidéo 
ne soyez plus collé à l'écran, rallonge. 464 130 F 
664 180F 
housse pour moniteur + clavier ............ 175F 


NOM 
ADRESSE 


{préciser couleur ou monoc.) 


[] disquettes vierges 3° - unité ............. 65F 
(À | HERO qe AR PAR 580 F 
C1 boitier rangement disquettes. .......... 255 F 


PRÉNOM 


20, rue de Montreuil 94300 VINCENNES -— Tél. : (1) 328.22.06 


OUVERT DU MARDI AU VENDREDI de 10 h 30 à 13 het de 15 h à 19 h, LE SAMEDI de 10 h 30 à 19h 


REVENDEUR OFFICIEL AMSTRAD FRANCE 


[avec moniteur couleur 


LOGICIELS CASSETTE 
[] master file (français) ..................... 290 F daley decathlon 
[1 gestion familiale (CORE) ..… 150F Cldark star ...... 
histo-quizz ............... .120F star avenger . 
CO] graphologie ... ..120F CO dum darach ..….. 
Ole bagne de népharia ...................., 140 F SUR BMD ce née crecsan on euros 
hench head M ssses roses 1206 ONE 555 neo issnude 
1818, soso. 160F  Charrier attack 
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CIS DM ses .140F [joyaux de babylone 
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cobre pinball ............. .140F UÜstress ........... 120 F 
mission delta 120F Clatom smasher .. 95F 
Ole millionnaire .140F world war 3... 95F 
micro-sapiens .......... .140F hunter killer ... 95F 
[1 haunted edges (pacman) . 95F Clmusicore ........ .195F 
[] macadam bumper ...... gestion de stock .. . 245 F 
combat lynx ....................... O facturation ....... .245F 
RAD ns dhien rase ds O1 salut l'artiste (D.A.0.). .185F 
gems of stradus . [] ghostbuster ..... .140F 
MA. base ............. CO] amsword {français) .… .245F 
O the hobbit (avec livre fr.) . [] devpac (ass. désass.) . ... 290 F 
starstrike ............ .140F  Ù mordon's quest .......................... 100 F 
AU MER CS D CSS D RE 150 F 
©] knight lore .… 135F [american football . 95F 
C'othello 120F easy file (français) 175F 
shon D -:...:.:.,2. 135F Ceasy calc (français) 175F 
K7 règlage magnéto ..… 120F Ceasy bank (français) 
battle for midway (F) 130F coloric . Æ 
CT de LEP OS CE CL 120F amscalc 
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O] calc (français). ....................... Cl'brabht lrencald 7... nie. ee 
©] centre court tennis . O snooker ........ 
pyjamarama ...... roland ahoy... 
space walk ............................. hunter killer... ...... 
ET fiamter pet: 2550 orge -185F CJ entrepreneur (anglais)... 
super pipeline Il .… .160F C] decision maker... 
[] fantastic voyage . .160F C] masterfile 
D file (français)... 345 FO project planner.....-....,::.......,5 
bank (français). . JABF Clare :.......7.::1,,.505,00e 
CO électro freddy.................... 149F [] microspread .. 
roland in time... store 8e 149 F DDI - firmware. 
roland on the sun. ..................., 149F [] micropen 
El ami... mu: 149 F Ce A EE 
CJ'inetek ss concis eztucamet 149F  Ctextomat : traitement de texte français compatible 
roland on the ropes. ................... 149 F toute imprimante ........................ 450 F 
CO roland in the caves. ................... 149 F datamat : gestion de fiehier (frençais jusqu'à 4000 
CO] harrier attack. ....................... 149F Don... Tentes seras uses 450 F 
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peeks et pokes du CPC.................... 99F CJ AMSTRAD 56 programmes... ........ 
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C] concise basic spécification … ….195 F  Dla bible du programmaeur du CPC . 
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©] super-jeux Amstrad. ......... . 120F AMSTRAD en famille .................... 
C] programmé en ass. sur Amstrad. 98 F 
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Possibilités de crédit partiel ou total 


ORDINATEUR [I CPC464 couleur []CPC464 monochrome []CPC664 couleur [ 


TÉL. 


CODE POSTAL 


5990 F* 
Cl avec moniteur monochrome4490 F* 


* Sous réserve 


Joystick TIRVITT 
Le “MUST” en matière de joystick! 8 directions, 
contact par micro-contact, robuste, élégant, précis, 
il ne vous décevra pas, garanti 1 an, compatible 
standard ATARI et MSX 

À Joystick TIRVITT..................... 


Joystick AMSTRAD 


EE 


L'imprimante “top niveau” en informatique fa- 
miliale 100 caractères par seconde. Papier 
normal ou informatique. Entraînement par 
friction ou traction. Si vous recherchez une 
qualité “courrier”, la MT 80S vous donnera 
plus que des satisfactions tant pour le texte 
que pour le graphisme. 

Mannesmann MT 80S ......... 3950 F 


Cassettes vierges C20 

Li PT Rd AREA TAN 45 F 

Eee 0 rsssmiimesaarrnence 80 F 
Rallonge alimentation + vidéo 
D ne soyez plus collé à l'écran, rallonge... .…. 130 F 
C] Adaptateur péritel... ARRETE 390 F 


>») Cm 


Synthétiseur vocal AMSTRAD 
Enfin votre AMSTRAD peut s'exprimer! Anglais d'ori- 
gine il gardera son accent mais, grâce à un programme 
basic, vous dira “bonjour”, “gagné” ou vous apprendra 
l'anglais ou l'allemand. 

synthétiseur vocal. ................... 


Câble imprimante AMSTRAD 
Vous permet de connecter votre AMSTRAD à n'im- 
porte quelle imprimante au standard “centronic” 

D câble imprimante. ..................... 


Carte E/S 

Vous permet de commander moteur, relais, lampe, 
sonnerie, projecteur 

Elta ”"s D: Minc eue 
Carte E/A AMSTRAD 

Pour transformer votre AMSTRAD en centrale de me- 


sures. Possibilité de brancher plusieurs cartes 
O 


VILLE 


Mode de paiement : [] chèque / [] mandat / [] contre-remboursement (prévoir 20 F de frais) — envoyer le tout à : ORDIVIDUEL, 20, rue de Montreuil 94300 VINCENNES. 


réseau | 


CPC664 monochrome 


ix sont indicatifs 


Tous nos pri 


Nous allons ce mois-ci passer en 
revue les modules d'extension se 
connectant à l'arrière du CPC et 
contenant des logiciels en ROM 
commercialisés par Micro Power 
Ltd, Northwoud House, North 
Street, LEEDS LS7 2AA, Tél.: 19 44 
532 434 006. 


DD>D 


SIDEWAYS ROM CARD A101 


Ce boîtier permet de loger vos pro- 
pres applications en EPROM. 7 sup- 
ports sont à votre disposition. Ils 
acceptent toutes combinaisons de 
mémoires 8 k ou 16 k. L’alimenta- 
tion est fournie par le CPC. 


DD>D 
PROGRAMMER'S TOOLBOX A104 


La boîte à outils du programmeur 
contient de nombreux utilitaires que 
l'on peut classer en deux catégories : 
— des fonctions additionnelles au 
Basic, essentiellement graphiques et 
musicales, telles que CIRCLE, FILL, 
TUNE ; 

— des aides à la programmation 
comprenant un éditeur, un compac- 
teur de programmes, des routines 
d'impression, un traceur sur impri- 
mante, un chargeur de programmes 
protégés, etc. 


D>D> 
DISK USER'S UTILITIES A103 


Comme son nom l'indique, ce 
module comporte de nombreux uti- 
litaires propres à satisfaire les utili- 
sateurs de disques. On y trouve pêle- 
mêle un désassembleur, un éditeur 
de secteurs performant, un copieur 
‘’intelligent’’ et de nombreux petits 
utilitaires d'usage général. 


RRLRLLLLLLLLLLRLRLLLLLE. 


EN ANGLETERRE 


MACHINE CODE MONITOR A105 


Ce boîtier constitue un système de 
développement en code machine sur 
AMSTRAD. Il contient un éditeur- 
assembleur, un désassembleur, et 
un moniteur. 

A l'heure où j'écris ces lignes, d'au- 
tres modules devraient être disponi- 
bles, à savoir : 

— un tableur, 

— un gestionnaire de fichiers, 

— un traitement de texte, 

— un module graphique/statistiques. 


DD 


Un autre éditeur propose deux 
modules en ROM : PROTEXT, trai- 
tement de texte qui a reçu une excel- 
lente critique de la presse britanni- 
que, et UTOPIA BASIC UTILITIES 
ROM, qui offre de nombreux utilitai- 
res d'aide à l'écriture de programmes 
en Basic, tels que : déplacement de 
lignes, listage des variables, recher- 
che et remplacement de chaînes, 
etc. Disponibles chez ARNOR Ltd, 
The studio, Ledbury place, Croydon, 
Surrey CRO 1ET. Les paiements par 
carte VISA sont acceptés. 


DD>D 


KDS Electronics 15, Hill street, 
Munstanton, Norfolk PE36 5BS, tél.: 
19 44 4853 2076 propose COM- 
MUNICATOR, qui comporte un 
modem aux normes BELL/CCITT 
fonctionnant en 300/300, 600, 
1200, 1200/75, 75/1200 bauds en 
half et full duplex avec numérotation 
et réponse automatiques. Le logiciel 


de communication est intégré en 
ROM et peut-être appelé à partir du 
Basic. Communicator offre égale- 
ment une sortie série et parallèle. 


Toujours dans le domaine des exten- 
sions, on notera la sortie d’un light 
pen chez DK'Tronics, tél.: 19 44 
7992 6350 et d’un tracker ball chez 
MARCONI, tél.: 19 44 5826 1283. 
Le tracker ball est un dispositif de 
commande analogue au joystick 
mais qui, au lieu de disposer d'un 
manche, est équipé d’une boule 
encastrée dans un boîtier, que l’on 
fait tourner avec la paume de la 
main. En fait, il s'agit presque d’une 
souris que l'on utiliserait à l'envers. 


À, 
Ÿ 
RRRLLLLLLE. 


Booksellers-Stationers 


ABONNEMENTS 


aux revues radio et 
informatique du monde 


37, Avenue de l’OPERA 
PARIS, Tél.: 261.52.50 
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logiciels 
AMSTRAD 


(cassette ou disquette) 


Eh oui ! I£ y a maintenant 40 titres 
. COBRA SOFT pour Amstrad 464, 664 et 
6128. IL s'agit de £a plus importan- 
te collection de Logiciels français. 


Jeux, éducatifs, utilitaires, gestion : 
il y en a pour tous Les goûts... 
Demandez notre nouveau catalogue en 
écrivant à : COBRA SOFT 

B.P. 155 

71104 CHALON/SAONE CEDEX 
{(foindne 2 timbres à 2.20 frs pour Les 
frais d'envoi). 


Programmeurs, contactez-nous !!! 


ALA VITRINE DU 


LIBRAIRE 


‘’L'AMSTRAD Basic sont supposés ‘UTILISATION DE 

EXPLORE" connus, et c'est vers L'AMSTRAD 

John BRAGA les particularités du CPC 464’ 

SYBEX système AMSTRAD lan SINCLAIR 

98 F que l'exposé est HACHETTE 
orienté. Avec cet 125 F 


ouvrage, on ne vous 
encourage pas 


Encore un ouvrage 


traduit de l'anglais ! Ce livre se définit 


D Si vous voulez ‘ 
AT seulement à taper des | C°mMmme étant ‘un 
C compléter les Orne d'où ouvrage de 
informations que vous BIOS “l complément à 
ffre | ét vous incite à les ; 
offre le manuel e l'excellent manuel 
: : ; comprendre. Le texte, ; 
tirer le meilleur parti le graphisme, le son livré avec la 
de votre machi ine’’ i 
hine, ce (avec quelques machine’. Traduit de 


livre pourra peut-être 
vous conseiller 
utilement. 


rudiments de solfège) 
vous sont expliqués 

: : par l'exemple. Une 
La partie présentation petite partie du livre 


et le B.A. B.A. du 

résume quelques - 
L AM STRAD adresses de routines de Sin 

système exploitables CPC464 

EX PLO RE A pour vos programmes 

en langage machine. 
La fin de l'ouvrage 
est consacrée à la 
description d’un 
logiciel de budget 
familial dont 
l'élaboration est 
commentée pas à 
pas. À lire pour 
commencer sa propre 
progression | 


L'utilisation 


l'anglais (l’auteur est 
bien connu des 
apprentis 
informaticiens), il est 
paru Outre-manche 
sous le titre 
‘AMSTRAD 
Computing''. Son 
origine se voit du 
reste à certaines 
illustrations (prises 
secteur de type 
anglais...) et à une 
partie de la mise en 
œuvre de la machine 
e ‘’collant’’ pas avec 
nos téléviseurs 
français. 
Ce livre est bien 
structuré et il propose 
au lecteur de se 
familiariser avec la 
machine tout en 
assurant une prise en 
main très progressive 
suivant un ordre 
logique. 
Types de boucles, 
manipulations de 
chaînes, sous- 
programmes, fichiers 
de données, fenêtres, 
graphisme, rien n'a 
été oublié. Il nous 
paraît important de 
signaler que la 
description des 
fonctions sonores 
devrait aider le 
néophyte à 
comprendre ce qu'il 
n'avait pas bien 
compris en lisant le 
manuel. 
Faire, en 250 pages, 
le tour de l'AMSTRAD 
et réussir à se faire 
comprendre du 
débutant, voilà qui 
mérite d'être 
souligné ! 


‘’AMSTRAD EN 
FAMILLE” 
Jean-François SEHAN 
PSI 

120 F 


Vous avez acheté la 


machine, mais que 
faire avec ? Vous 
voilà à court d'idées ! 
40 petits programmes 
en Basic pour 
commencer à 
entrevoir des 
applications, ça vous 
tente ? C'est ce que 
propose le livre de 
J.F. SEHAN. 


Pas toujours 
originaux, et 
n'exploitant hélas pas 
les possibilités 
graphiques et sonores 
de l'AMSTRAOD , ils 
ont le mérite d’être 
proposés avec un 
organigramme et une 
liste des variables 
utilisées. Par contre, 
ils touchent à tous les 
domaines de la vie 
familiale : répertoire 
téléphonique, gestion 
de cave, disposition 
des meubles dans une 
pièce, statistiques du 
loto (si vous gagnez, 
faites nous signe l), 
aide à la conjugaison. 
Des idées à prendre ! 


LES LIVRES DE 
MICRO APPLICATION 


Nous avons déjà 
parlé, dans notre 
numéro 1, de 
‘TRUCS ET 
ASTUCES POUR CPC 
464". La collection 


de MICRO 
APPLICATION 

semble s’agrandir 
chaque mois. Outre la 
très célèbre ‘‘Bible du 
programmeur’’ qui, 
bien qu'imparfaite et 
entâchée de quelques 
erreurs, sert de 
référence, avec le 
SOFT 158 (Firmware) 
d'AMSOFT, à tous les 
passionnés de 
programmation en 
langage machine, 
nous avons retenu 
deux titres : 


PEEK ET POKE 
DU CPC 


Ce livre donne une 
foule de 
renseignements sur 
des adresses, peu 
connues (ou comme 
telles avant la lecture 
de ce livre) et 
intéressantes, du 
système. Duper le 
Basic, déplacer la 


AMOR AU 


PEEKS ET POKES 
DU CPC 


mémoire d'écran, 
créer des scrollings 
inattendus en jouant 
avec les registres du 
contrôleur d'écran : 
autant d'astuces qui 
vous permettront de 
faire plus ample 
connaissance avec le 
système d'exploitation 
de la machine. En fin 
d'ouvrage, une liste 
d'adresses mémoires, 


contrôlant le 
fonctionnement de la 
machine, permettra 
de faire quelques 
expériences. Une 
critique : le livre est 
un peu fouillis, ce qui 
oblige à le parcourir 
en entier pour en 
extraire ‘‘la 
substantifique 
moelle’”. 


LE BASIC AU 
BOUT DES DOIGTS 


Cet ouvrage propose, 
grâce à de nombreux 
exemples, un 
apprentissage 
progressif du Basic de 
l'AMSTRAD. Initiation 
à la programmation, 
découverte de 
l’organigramme, 
systèmes binaire et 
hexadécimal sont les 
premiers pas avant 
l'analyse des 
différentes 
instructions du Basic. 
Des exemples 
d'application, des 
exercices et leurs 
corrigés vous 
permettront de 
progresser. Vous 
serez amenés, en 
douceur, à la 
conception et 
l'écriture modulaire 
d'un programme. Une 
étape sur la route de 
l'apprenti 
programmeur. 


AU BOUT DES DOIGTS 


# À 
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BANIC D’ ESSAI 
DES LOGICIELS 


Cr vous l'avez noté dans 
nos précédents bancs d’es- 
sais, ‘’on ne fait pas de 
cadeaux’, surtout lorsque la qua- 
lité n’est pas en rapport avec le 
prix de vente. 

Que diriez-vous si vous aviez 
payé 30 francs une place de 
cinéma, pour découvrir un navet 
de série B en version originale non 
sous-titrée ? Et bien, c'est parfois 
le cas pour des cassettes du 
commerce, et ce pour un prix 
quadruple ! Vrai ou faux ? 
Notre cotation, discutable, per- 
sonnelle mais sincère, reste la 
suivante : 

O=nul (ou absent),1 =médiocre, 
2=moyen, 3=bon, 4=excel- 
lent, 5 =extraordinaire. 

On commence par les jeux. 


LA VILLE INFERNALE 


Jeu d'aventure et d'orientation. 
Pas d’assassin, pas de sang, pas 
de ‘'science’’ fiction, pas de 
morts ni de blessés. Original ! 
non ? Ce genre d'aventure, nous 
l'avons tous vécue à des degrés 
divers. Vous devez, au volant de 
votre voiture, traverser une 
grande ville du sud au nord, dans 
un dédale de carrefours anony- 
mes avec interdiction de tourner 
à droite ou à gauche ou d'aller 
tout droit. Heureusement, vous 
avez une boussole pour mainte- 
nir le bon cap, mais quelque 
temps plus tard elle tombe en 
panne ; vous avez donc intérêt à 
noter vos changements de direc- 
tion sur papier. 

Mais d’autres ennuis vous atten- 
dent : crevaison, panne de carbu- 
rateur, risque de panne d'es- 
sence, contraventions. || y a bien 
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sûr votre trajet des garages et des 
banques pour faire le plein d’es- 
sence ou d'argent ; encore faut- 
il les rencontrer quand on en a 
besoin (comme en ‘‘vrai’’...). Le 
jeu est simple à jouer, on répond 
par le joystick (ou flèches). 
1600 carrefours, 80 banques, 80 
postes de police, 90 garages et 
90 postes d'essence ; la ville est 
donc suffisamment grande pour 
ne pas risquer de faire deux par- 
cours identiques. 

L'animation est insignifiante, le 
graphisme réduit à des traits jau- 
nes sur fond noir avec de très 
rares motifs en bleu, rouge et 
vert. Pourquoi cet éternel et triste 
fond noir commun à tant de logi- 
ciels ? 

Un peu de son, un peu d'humour 
dans les messages. En fin de par- 
tie, l'écran montre le ‘‘plan’’ de 
la ville avec le trajet que l’on a 
suivi. 

En résumé, un jeu gentillet qui 
plaira beaucoup aux enfants. 
Graphisme=2, Animation =1, 
son = 2, Originalité = 3. 


\ 1 
5 
AMSTRAD cpc 464 | 
EMPIRE : 
CASSETTE 


EMPIRE ; 
Loriciels pour 


Empire est l’un des premiers bons 
jeux français de simulation éco- 
nomique et politique, alliant 
même des options de diplomatie 
et de stratégie guerrière. 

Nous sommes maintenant en l'an 
203 avant Jésus Christ. Vous 
êtes le César d'une petite pro- 
vince du monde connu. Il vous 
faut la faire prospérer (économi- 
quement, démographiquement 
et, bien sûr, militairement !), dans 
le but avoué d’annexer les provin- 
ces voisines et, peut-être, de 
créer un Empire... 

Pour vous aider (non, vous n'êtes 
pas seul contre tous : paranoïa- 
ques s'abstenir !), vous disposez 
d'une garnison de 36 hommes, 
de 24 chevaux, de quelques 
armes et, surtout, de 3 consuls : 
un pour l’agriculture, un pour les 
chevaux et un pour l’industrie 
métallurgique. Ils sont respective- 
ment nécessaires à l’approvision- 
nement en vivres, en chevaux et 
en minerai (pour fabriquer armes 
et catapultes). Chacun de vos 
personnages (César et consuls) 
dispose de deux actions par sai- 
son, l'unité de temps. Ils peuvent 
se déplacer, charger ou déchar- 
ger hommes, chevaux et maté- 
riel, construire (ce qui utilise les 
deux actions en une seule fois), 
ou bien. ne rien faire | 

Le livret des instructions est clair 
et bien réalisé, agrémenté de 
nombreuses citations latines ou 
autres, mais il est hélas minus- 
cule ! À quand la fourniture de 
loupes pour notices de program- 
mes ? 

Le graphisme est bon, et la réali- 
sation est soignée. Les représen- 
tations iconographiques simpli- 
fient et éclaircissent le jeu. On 
aurait juste pu réclamer une tou- 


che inventaire, car il faut mémo- 
riser les réserves à chaque tour. 
Attention aux touches trop long- 
temps appuyées qui effacent le 
récapitulatif du joueur suivant ! 
Certains messages s'affichent un 
peu trop rapidement, mais ce 
n'est qu’un détail. 

L'intérêt de la simulation écono- 
mique est encore accru par les 
options de sièges et de diploma- 
tie. Les attaquants et défenseurs 
peuvent en effet s’allier (momen- 
tanément !) avec d’autres joueurs 
ne participant pas au combat, 
pour l'envoi de renforts. Les 
‘feuilles de traités’” sont là pour 
ça ! Mais comme le dit si bien la 
notice : ‘’Le principe d'alliance 
est indissociable de l’idée de tra- 
hison… ‘’’ Tout un programme ! 
Deux reproches encore : le 
combat ne peut prendre que la 
forme du siège de la citadelle 
ennemie, ce qui empêche les 
‘‘vraies”” batailles romaines ; et 
enfin il est dommage que l'ordi- 
nateur ne soit qu'arbitre et qu'il 
ne puisse gérer un ou plusieurs 
joueurs. En effet, Empire est un 
jeu très prenant, mais qui ne 
prend sa véritable dimension qu'à 
partir de 3 joueurs. 

NOTE : Un petit conseil. Si vous 
ne voulez pas être forcé d'aban- 
donner une passionnante partie 
en cours de jeu, évitez au maxi- 
mum d’avoir un nombre de sol- 
dats inférieur au nombre de che- 
vaux ou d'armes dans l’escorte 
du César : cela peut, dans cer- 
tains cas, ‘‘planter'’ définitive- 
ment le programme. 
Graphisme=3, Animation=1, 
Son=2, Intérêt = 4. 


‘’LE TOUR DU MONDE EN 80: 


JOURS" 
En français 
(NO MAN'S LAND) # 


Rééditez l'exploit de Philéas 
FOGG dans ce jeu d'aventure 
graphique inspiré du célèbre 
roman de Jules VERNES. Tout en 
suivant votre déplacement sur 
cinq cartes en graphisme, un peu 
sommaire à notre goût, vous ren- 
contrez des dizaines de person- 
nages qui semblent s'ingénier à 
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retarder votre progression et à 
vider votre porte-monnaie. Des 
incidents en tous genres viennent 
perturber le bon fonctionnement 
de tous les moyens de transport 
que vous empruntez. Bref, c'est 
la galère ! Il vous faudra faire 
preuve de beaucoup de sang- 
froid et d'imagination pour vain- 
cre tous les obstacles qui se pré- 
sentent sur votre chemin. Nous 
avons regretté la brièveté de cer- 
tains messages et surtout la len- 
teur de chargement de la cas- 
sette. Voilà un programme qui 
aurait tout intérêt à être vendu 
sur disquette. Enfin, au bout de 
quelques minutes de jeu, on s'y 
croit vraiment et le dépaysement 
est garanti. 

Graphisme=2, Animation=1, 
Son= 1, Intérêt = 3. 


GESTION DE STOCK 
Microbureautique 9 


Vraiment pas génial ce logicie 
présenté par Microbureautique 
92 qui aurait dû être d'autant 


plus présentable et fini qu'il 
s'adresse à des professionnels. 
Pas de documentation, d’ailleurs 
il n'y en a pas besoin, il suffit à 
l'utilisateur de suivre le menu et 
de rentrer ses données, mais 
avec une extrême attention, car 
il n'y a aucun contrôle. C’est bien 
regrettable : si, par erreur, l'’utili- 
sateur répond à une question 


numérique (prix d'achat, de vente 


] ou taux de TVA) par une donnée 


alphabétique, le message peu 
plaisant ‘’Redo from Start ?’’ 
apparaît à l'écran avec des déca- 
lages que le programme ne recti- 
fie pas. De plus, si sur une modi- 
fication d'article, l'utilisateur 
répond par ENTER sans avoir ren- 
tré une nouvelle libellé, le reste du 
fichier est perdu ! Pour ceux 
qui auraient réussi à lister ce pro- 
gramme, la suppression de la 
ligne 1010 leur évitera cette 
mésaventure. 

Ce logiciel semble avoir été l’œu- 
vre d’un amateur pressé. On peut 
noter également qu'il ressemble 
en tout point (sauf les erreurs) à 
un logiciel de gestion de stock 
distribué par un concurrent. 


Notice =absente, Performance 
=<2, Facilitté=2, Intérêt =1, 
Efficacité = 1. 


‘DATA BASE” 
En anglais tt: 
(DEAN) À 


Gestionnaire de fichier avec fonc- 
tion tableur. Des menus en 
anglais, mais il y a toujours pos- 
sibilité de corriger une erreur sans 
risque de planter le programme. 
Outre les fonctions habituelles, 
telles que tris, cassette, impri- 
mante, modification de fiches, 
etc., la grande originalité est que 
l'on peut définir des rubriques 
numériques par calculs de deux 
autres rubriques numériques. 
Exemples : rubrique A=B+C, 
A=B-C, A=BXxC, A=B/C 
constante ; A=somme de B. 
Avec, bien sûr, des rubriques 
alphanumériques (en lettres), 
chose que ne peut pas faire un 
tableur. Au départ, on a le choix 
entre cinq formats de fichiers. 
Depuis 360 fiches de 10 rubri- 
ques, jusqu'à 72 fiches à 50 
rubriques. On dispose en outre de 
deux programmes DATA BASE, 
en 40 ou en 80 colonnes ; ce der- 
nier étant pour les rubriques lar- 
ges. Mériterait d'être francisé, 
tant pour la clarté des menus que 
pour les caractères AZERTY. 
Facilité = 3, efficacité = 3, perfor- 
mances = 4, intérêt = 3. 


3D ECHECS VOCAL est la ver- 
sion française de 3D VOICE 
CHESS écrit par Chris WITTING- 
TON et édité en Grande-Bretagne 
par DEEP THOUGHT SOFT- 
WARE. L'adaptation en français 
a été réalisée par la société suisse 
SEMAPHORE Logiciels qui a bien 
voulu nous confier un exemplaire 
de présérie pour évaluation. 


L'AFFICHAGE 3D constitue une 
des originalités du programme. Le 
dessin de l’échiquier est de fort 
bonne facture ; de même, le 
choix de l'angle de vision est très 
bon et évite de rendre difficile la 
reconnaissance des pièces par- 
tiellement masquées. Lors de 
l'initialisation, les cases sont 
blanches et noires, les pièces 
blanches sont en jaune paille et 
les pièces noires en brun foncé. 
Dans le cas où ces couleurs ne 
vous conviendraient pas, il est 
très facile de les modifier à l’aide 
de la commande V. La com- 
mande O, quant à elle, permet de 
faire tourner l’échiquier de 90° à 
chaque pression, ce qui offre 
l'avantage de voir le jeu sous tous 
les angles. 


Vous jouez noir Niveau L.] 
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LE SYNTHETISEUR DE VOIX 
vous annonce en bon français 
tous les coups joués. Bien que 
l'AMSTRAD n'utilise pas de cir- 
cuit de synthèse vocale, les mes- 
sages sont compréhensibles et il 
semble difficile de faire mieux. On 
notera qu’en début de partie, un 
menu propose d'utiliser ou non la 
synthèse vocale. Si vous décidez 
de jouer en silence, une petite 
sonnerie viendra quand même 
vous prévenir que l'ordinateur a 
fini de réfléchir et que c'est à 
vous de jouer. 


Le programme offre deux 
options : 

— le jeu normal, 

— l'analyse, réservée aux joueurs 
qui veulent faire résoudre des 
problèmes à leur machine. 

En jeu normal, vous choisissez les 
blancs ou les noirs et le niveau de 
jeu. 7 niveaux sont proposés, du 
débutant, où la machine répond 
en 8 secondes, jusqu'au niveau 
‘‘jeu par correspondance’, où 
l'AMSTRAD peut réfléchir jus- 
qu'à 24 heures à chaque coup. 
Parmi les différentes options du 
jeu, nous avons encore noté la 
possibilité : 

— de changer de côté ou de 
niveau en cours de partie, 

— de stopper la partie pour repo- 
sitionner les pièces à votre guise. 
De plus, en pressant la toucheR, 
l'ordinateur vous aide en vous 
annonçant ce qu'il jouerait s'il 
était à votre place. Naturelle- 
ment, le programme accepte le 
roque et la prise en passant. 
Nous avons simplement regretté 
qu'il ne soit pas possible de reve- 
nir en arrière d’un certain nombre 
de coups, ce qui permet de tes- 
ter plusieurs combinaisons tacti- 
ques sans avoir à reprendre une 
partie entière, ni de sauver une 
partie en cours pour la reprendre 
ultérieurement. 


N'étant pas virtuoses aux 
échecs, nous avons confronté ce 
programme à MYCHESS II de 
Datamost, qui joue aussi en 3D, 
mais sur APPLE II. Nous avons 
choisi pour 3D ECHECS VOCAL 
le niveau 2 — intermédiaire — et 
pour MYCHESS II le niveau 4, 
chacune des machines ‘‘réflé- 
chissant'’ pendant une minute 


entre chaque coup dans de telles 
conditions. Laissons le soin aux 
spécialistes d'analyser la partie à 
l’aide de la liste des coups ci- 
jointe. 


LA PARTIE 


3D ECHECS VOCAL MYCHESS II 
E2-E4 E7-E5 
G1-F3 G8-F6 
B1-C3 F8-B4 
F3+E5 D7-D6 
E5-F3 B4,C3 
B2+C3 F6+*E4 
F1-D3 D6-D5 
C1-A3 B8-C6 

0-0 C8-G4 
D1-E2 G4,F3 
G2+F3 D8-G5 ECHEC 
G1-H1 G5+D2 
F3+E4 D2+E2 
D3+E2 D5+E4 
A1-D1 C6-E7 
F1-G1 G7-G6 
A3-C5 H8-G8 
G1-G4 F7-F5 
G4-H4 G8-G7 
HA-G2 G6-G5 
H4-H6 F5-F4 
F2-F3 G5-G4 

E2-B5 ECHEC C7-C6 
B5-C4 G4+F3 ECHEC 
G2-H3 E4-E3 
H6-E6 B7-B5 
C4-B3 F3-F2 
E6-E4 A7-A5 
E4,F4 E3-E2 
B3-F7 ECHEC G7%F7 
F4+F7 E8+F7 
H3-G2 E2+D1 Q 
C5+F2 A8-G8 ECHEC 
F2-G3 D1+C2 ECHEC 
G2-F3 E7-D5 
C3-C4 C2»C4 
G3-E1 C4-G4 ECHEC 
F3-F2 G4-G2 ECHEC 
39 ET MAT, JE PERDS 
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La partie a été âpre, et MYCHESS 
ne l'a emportée qu'après une 
résistance acharnée de 3D 
ECHECS VOCAL qui a peut-être 
laissé passer sa chance en milieu 
de partie où il avait un solide 
avantage matériel. Le niveau O 
conviendra au débutant en lui 
offrant un jeu raisonnablement 
difficile, mais lui laissant quand 
même la possibilité de gagner de 
temps en temps. Rien n’est plus 
rageant que de se faire systéma- 
tiquement battre par un ordina- 
teur. 

Par contre, le joueur expérimenté 
trouvera au niveau 4 (tournoi), un 
adversaire coriace, toujours dis- 
ponible et de bonne humeur ! Un 
bon programme pour les longues 
soirées d'hiver. 

Graphisme=4, Animation=4, 
Son=4, Intérêt = 4. 


GUILLEMOT International Software B.P. 2 - 56200 LA GACILLY - tél 99 08 83 54 et 99 08 83 17 du lundi au samedi de 9 à 19h. 
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LES 


LOGICIELS 


D'OUTRE-MANICHE 


‘’FRUITY FRANCK”"" 
En anglais 
(KUMA) 


C.. un jeu d'arcade qui a le 
mérite d'être à la fois simple et 
passionnant. || faut le faire ! Vous 
déplacerez un petit bonhomme 
très rapide qui ramasse des ceri- 
ses et des bananes dans un jar- 
din gardé par des monstres. Vous 
pouvez les éliminer en leur faisant 
tomber une grosse pomme sur la 
tête, ou les repousser en leur 
jetant des balles. Quand tous les 
fruits sont ramassés, passage au 
tableau suivant qui peut être plus 
simple ou plus difficile. C'est 
cette agjilité facile qui rend ce jeu 
très prenant. Une réussite. 
Graphisme=4, animation =4, 
son = 3, originalité = 3, intérêt = 4. 


‘’DARK STAR" 


En anglais 
(DESIGN DESIGN) 


im-zoum sur la soucoupe. 
Encore un ? Pas comme les 
autres |! L'image est très belle, en 
‘trois dimensions” (je n'ai pas dit 
en quatrième... ), constamment 
en travelling avant. Le graphisme 
est stylisé mais beau, et l’anima- 
tion est plus qu'excellente. Votre 
Vaisseau passe de galaxie en pla- 
nète hostiles, comment ? pour- 
quoi ? La notice a la clarté des 
étoiles, le jeu aussi, mais c’est 
beau à regarder, et ce point est 
important. De nombreux com- 
mentaires sont dans le plus pur 
style humour anglais. 
Graphisme=3, animation =4, 
son = 2, originalité = 1, intérêt = 2. 
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GREMLINS 
Adventure International 
(Warner Bros. Inc.) 


V. vous souvenez des Grem- 
lins, ces charmantes petites bes- 
tioles poilues, qu'il ne faut pas 
exposer à la lumière du soleil, 
qu'il ne faut pas mouiller et sur- 
tout, qu'il ne faut pas nourrir 
après minuit ? 

Eh bien, sachez que vous êtes 
maintenant Billy, le héros du film, 
et que vous venez de faire la 
bêtise de votre vie : les Gremlins 
ont dévoré une caisse de poulets 
après minuit (ennuyeux, n'est-ce 
pas ?) ! Vous n'avez alors plus 
qu'un but empêcher les 
méchantes bébêtes d'’envahir 
votre ville. 

‘’Gremlins’” est un jeu d'aventure 
graphique en anglais. L'absence 
d'image de présentation est vite 
comblée par la qualité graphique 
du jeu : les écrans sont super- 
bes ! La réalisation est très 
bonne : tous les graphismes sont 
redessinés après une action 
modifiant ceux-ci (une perceuse 
dans un atelier disparaît quand 
vous la prenez, par exemple). 
Gremilins dispose en outre d’un 
vocabulaire important, dont quel- 
ques mots vous sont donnés 
dans la notice explicative (d’ail- 
leurs fort succincte !). Il est dom- 
mage que certaines scènes (en 
minorité, rassurez-vous |) n’aient 
pas d'image graphique ; elles 
paraissent alors vraiement nues 
par rapport aux autres | 

Tout ceci ne serait cependant rien 
sans un bon scénario. Alors là, 
quel régal pour tout ceux qui ont 
vu le film avec plaisir ! Le scéna- 
rio du jeu ‘‘colle”’ très bien au 


film, et on redécouvre la plupart 
des scènes marquantes. 
Rappelez-vous le cinéma, le 
magasin, le chasse-neige dans la 
maison, etc. Eh bien, tout y est ! 
Et même si vous avez manqué le 
film, la qualité de ‘‘Gremlins’” ne 
devrait pas décevoir les amateurs 
de jeux d'aventure anglais. Bien- 
tôt au hit-parade du logiciel ? 
Graphisme=5, Animation=1, 
Son=0, Intérêt = 4. 


<° 
Ca 


THE ADVENTURE 
BY BRIAN HOWARTH 


WARNER BROS. INC. 1983, 


‘*’BATTLE FOR MIDWAY" 
En anglais 
(PSS) 


U. jeu bien structuré, bien pré- 
paré, nombreux tableaux : atta- 
que de l'île, attaque de l’escadre 
par l'aviation, combat naval avec 
ennemi au-delà de l'horizon, et le 
point de départ, une très belle 
carte pour commander les dépla- 
cements de vos escadres et des 
avions de reconnaissance. Cela 
promet |! Oui, mais : le jeu est 
lent, mais surtout le scénario des 
chasseurs bombardiers (très belle 
animation) semble immuable quoi 
que l’on fasse, c'est dommage ! 
Par contre, cette critique ne s’ap- 
plique pas au combat naval. En 
somme, un très beau programme 
dont l'intérêt chute à partir du 
moment où l’on soupçonne un 
bug dans le trop fidèle ballet des 
avions. 

Graphisme=4, animation =3, 
son = 3, originalité = 2, intérêt = 3. 


CHEZ AMSTRAD, 
C'EST TOUJOURS 
MOINS CHER... APRES 


Le 664 sort : on se précipite et 
on l’achète. On revend son 464 
tant bien que mal et... deux mois 
après sort le 6128 à peine plus 
cher que le 664. La valse des 
modèles a commencé. Ne parle- 
t-on pas d’un 256 k (non pas la 
bécane de traitement de texte) ? 
Pas de précipitation donc. 
Mettez-vous dans la peau du 
client qui vient d'acheter un 664 
et qui découvre le 6128 |! 
Même chose avec l'imprimante. 
La DMP-1 prend sa retraite, la 
DMP 2000 lui succède. Jugez 
plutôt de l'amélioration : matrice 
de caractères mieux définie, 
vitesse multipliée par deux et... 
compatibilité avec les comman- 
des EPSON. Le prix ? 2290 F. 
Vous venez d'acheter une 
DMP-1 ? Dommage ! 


CPC, LE SUCCES 


En fait, cette revue pour son pre- 
mier numéro a dépassé toutes 
nos espérances. Le numéro un 
est pratiquement épuisé, à quel- 
ques unités près ; le numéro deux 
en est quasiment au même 
niveau. Or, nous avons livré deux 
mille exemplaires de plus pour le 


numéro trois et il n’y en a plus à : 


la rédaction ! Mis à part le pro- 
blème d'impression du numéro 
deux, nous attendons toutes vos 
suggestions. 

LE 2] 


CHAQUE MOIS 
UN CADEAU ! 


Chaque mois, un tirage au sort 
sera effectué parmi les nouveaux 
abonnés. Un magnifique cadeau 
sera offert à l’heureux gagnant. 
| 


COULEUR OÙ PAS 
COULEUR DANS CPC 


Quelques lecteurs nous font 
encore remarquer que notre 
revue semble sévère parce que 
manquant de couleur ! Il s’agit là 
d’un problème de coût et de prix 


de revient. 
réduire le coût en augmentant, en 
lieu et place de la couleur, le ser- 
vice lecteur. 


Nous. préférons 


A NOS ABONNES 


Une série de 160 lecteurs a reçu 
son CPC n° 3 avec retard (ce sont 
ceux timbrés à 6,50 F). Nous leur 
demandons de bien vouloir nous 
en excuser. L'ordinateur (qui 
n'est pas un AMSTRAD) avait 
quelque peu oublié ces abonnés ! 
Nous leur demandons de bien 
vouloir nous en excuser. 

EE ms || 


PAS DE 
COMMISSION PARITAIRE 


CPC étant une revue au service 
d’un seul ordinateur ne peut avoir 
de numéro de commission pari- 
taire. Donc, pas de routage 206, 
pas de dégrèvement de TVA 
(4,23 F l'envoi au lieu d'un mon- 
tant inférieur à 1 F, TVA 7 % au 


lieu de 4 %j).….. Faudra faire 
avec ! 
EE À | 
LA REDOUTE 


FAIT BAISSER LES PRIX 


Coup de téléphone à la rédac- 
tion : le CPC baisse. Tiens ! est- 
ce pour contrer la politique d'EU- 
REKA (ORIC) ? Non, la REDOUTE 
affichant un prix inférieur au prix 
normal, AMSTRAD FRANCE a dû 
faire face à une levée de bouclier 
des revendeurs. Du coup, AMS- 
TRAD FRANCE a baissé les prix | 


Nous vous rappelons que les 
clubs constitués peuvent se faire 
connaître : CPC leur offre quel- 
ques lignes pour se présenter. 


AMSCLUB FRANCE 
4, Impasse Truillot 
75011 PARIS 


édite un bulletin de liaison ‘’AMS- 
TRAD Gram’’ qui se fait écho de 
la vie de l'association et donne 
quelques trucs et astuces per- 
mettant de se servir au mieux de 


la machine. Ajoutez à cela quel- 
ques analyses de soft et de bou- 
quins : le résultat n’est pas maur- 
vais ! 

L'adhésion et la cotisation 
230 F. Relativement cher à notre 
avis, mais il reste à savoir si les 
services rendus ne justifient pas 
ce prix... 

En règle générale, faites nous part 
de vos observations concernant 
le fonctionnement des clubs : 
cours, services, accueil, etc. 


CLUB PICONET (CPM) 


Vous avez couplé un 5‘*1/4 (c'est 
indispensable) sur votre CPC ? 
Ceci vous intéresse si CPM vous 
passionne. 

PICONET est une organisation, à 
but non lucratif, filiale de ‘’PICO- 
NET Inc.’ située en Californie. 
Le statut de membre est pour 
l'instant gratuit, mais il faut join- 
dre à vos correspondances une 
enveloppe affranchie self-adres- 
sée. 

L'échange de logiciels CPM est le 
premier service rendu par PICO- 
NET France. Attention, ces logi- 
ciels ne doivent pas être commer- 
cialisés… 

Toutes les informations peuvent 
être obtenues à l'adresse : 
PICONET FRANCE — CLUB CPM 
Le Pavillon, Belle Etoile 

84760 SAINT MARTIN DE LA 
BRAQUE 


BRESSURE 


COMMODORE 
THOMSON 
nombreux logiciels 
et livres 


1, rue Barbotin 
79300 BRESSUIRE 
Tél.: (49) 65.26.36 
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PME / PMI 


UNE NOUVELLE LOI 
SUR LES DROITS D'AUTEURS ! 


Nous ne parlerons ici que des problèmes 
concernant les logiciels. Toutefois, le lecteur 
doit savoir que les négociations ne furent pas 
aisées. En effet, certaines sociétés d'auteurs 
souhaitaient voir leur pouvoir renforcé par 
l'agrément de l'état. ; 
Le Syndicat national de l'édition fut franche- 
ment contre. Voyons le côté protection des 
logiciels (titre V, Articles 45 à 51). Le débat 
tourna autour de deux problèmes ayant cha- 
cun ses défenseurs, à savoir : jouer sur les 
droits d'auteur ou créer une loi spécifique. 
Les difficultés qui entouraient la mise au point 
d'une loi spécifique par le Ministère de l'in- 
dustrie (avec application de la loi du 11 mars 
1957) amenèrent certains représentants à 
opter pour la solution droit d'auteur, surtout 
compte tenu des urgences. Le CNPF a d'ail- 
leurs opté pour une position assez proche de 
celle des droits. Le Ministère de la culture 
ayant refusé d'introduire les logiciels dans le 
projet, c'est au Sénat que l'affaire a été tran- 
chée. Ainsi, les logiciels sont-ils protégés par 
le droit d'auteur et non par un régime parti- 
culier. Une telle disposition rend possible l'ap- 
plication des conventions internationales et 
de sécurité sociale. L'article 45 précise que 
les droits sur un logiciel créé par un salarié 
appartiennent à son employeur. 

Dans la limite de ses droits, un auteur ne peut 
s'opposer à l'adaptation d'un logiciel. La 
copie de logiciel est interdite. Seul est auto- 
risé l'établissement d'une copie de sauve- 
garde par l'utilisateur (en son article 47). 
Toutefois, l’utilisation d’un logiciel sans auto- 
risation du détenteur des droits est interdite. 
Nous attirons l'attention sur le fait qu'il s'agit 
là d’un droit pénalement sanctionné. 


ICT propose logiciels 

professionnels sur disquettes. 
ICI TEXTE : mixage de deux 
célèbres traitements de texte. 


590 F 


ICI TAB : tableur performant 
et interactif avec ICI TEXTE 
490 F 


ICI COMPT: comptabilité 890 F 
Gestion de fichiers, facturation, 
stocks, devis. 


ICI COMPT : comptabilite 


zenérole + Tiers (nous consulter) 


ICI COMPT FAC comptabilite, 


‘acturation et gestion bancaire 

(nous consulter) 
CPC 464, 664, 6128, périphériques 
aux nouveaux tarifs 


ICI INFORMATIQUE 


2, rue du Pont-des-Tanneries 
21000 DIJON - Tél. (80) 45.13.69 
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Les logiciels sont protégés pendant 25 ans 
à compter de leur création (article 48). 

Le prix de cession des droits d'auteur peut 
être forfaitaire (article 49). 

L'article 51 prévoit une procédure particulière 
de saisie-contrefaçon des logiciels. 

Enfin, les étrangers ne jouissent en France de 
cette protection que dans la mesure où leur 
propre pays protège également les logiciels 
français. 

Nous avons noté que le régime de saisie- 
contrefaçon des logiciels risque d'être large- 
ment insuffisant si la piraterie prend une 
grande expansion. 


MODEMS : QUELLE POLITIQUE ? 


Le modem, a-t-il un avenir ? L'utilisation de 
ces appareils peut être, pour les PME et les 
PMI, une source d'avenir dans un marché en 
pleine expansion. Malheureusement, et par- 
ticulièrement en Europe, cette utilisation est 
réglementée, et il faut espérer, de la part des 
PTT, qu'une certaine libéralisation des régle- 
mentations interviendra. Elle aurait pour effet 
de stimuler une technologie de pointe. Tou- 
tefois, ces modems devront répondre aux 
standards BELL et CCITT. lis pourront ainsi 
couvrir le marché européen. Cet assouplis- 
sement est d'autant demandé que les PTT de 
différentes nations ne sont pas en mesure de 
couvrir le marché, sachant que les ventes 
vont considérablement augmenter dans les 
5 à 8 ans qui viennent. 

Le marché est actuellement dirigé sur des 
modems de plus en plus rapides et intelli- 
gents. Les 1200 bds représentent sur le mar- 
ché mondial environ 55 % (en 83) et les stra- 
tèges prévoient qu'ils atteindront 83 % envi- 
ron dans les années 88. Les 2400 bauds sont 
également mis en fonctionnement pour les 
utilisations de téléphones. Ils commencent 
seulement à faire leur apparition. Où en est 
la France sur ce marché ? Nous tenterons de 
tenir régulièrement informés nos lecteurs. 


IMPORTANT, LES FOURNITURES 


Si l'AMSTRAD CPC est un appareil qui per- 
met la gestion, encore faut-il trouver le papier 
‘‘utile'”. 

Or, nous avons trouvé l'une de ces sociétés 
‘‘Mini Service‘, un imprimeur qui s'est 
adapté à la demande au lieu d'attendre que 


-‘'cela vienne‘. 


Nous avons été agréablement surpris par la 
qualité mais aussi la grande diversité des 
documents mis à disposition. Ajoutez à cela 
un point important que nous signale Monsieur 
J.P. LESPAGNOL. Il peut créer de nouveaux 
modèles à la demande des sociétés d'édition 
de logiciels. 

Les revendeurs peuvent aussi se ravitailler (la 
remise étant de 20 % ou 30 % pour les gran- 
des commandes). Ici, nous remarquons une 
chose : si ce fabricant veut se faire une place 
réelle sur le marché, même grand public, nous 
pensons qu'il lui faudra revoir le problème des 
marges revendeurs ! Toutefois un bon point ! 


Le port ‘est franco. 
Nous y avons trouvé différents modèles de 
bulletins de paie, bons de livraison, borde- 
reaux de remise de banque, confirmations de 
commandes, factures en tout genre (existant 
en français/allemand), quittances de loyer, 
traites, relevés de compte, etc. 

Une heureuse initiative pour les utilisateurs ! 
(Mini Service, BP 19, Rue des Frères Beau- 
mont, 59128 Flers en Escribieux}), télex 
280 047F. 


LA VENTE AVEC REMISE. 
POUR OU CONTRE ? 


On a assisté lors de la foire de Paris à un pugi- 
lat entre revendeurs sur une question de prix 
pratiqués. 

La concurrence anarchique rend de plus en 
plus difficile la possibilité de réaliser des béné- 
fices honnêtes. La guerre des prix qui sévit 
parfois entre revendeurs mais aussi avec les 
grandes surfaces n'apportera, au bout du 
compte, qu’un vainqueur et un perdant. La 
concurrence doit donc jouer ailleurs que sur 
les prix, évitant ainsi de nombreuses faillites, 
car aujourd'hui qui va bien ira peut-être mal 
demain. Nul n’est à l'abri. Avant d'aller voir 
le prix affiché chez le concurrent, peut-être 
est-il nécessaire, dans un premier temps, de. 
voir ce qu'il vend et pourquoi il le vend à bas 
prix. 

Un stock ne peut engendrer le profit que s'il 
est vendu rapidement, s’il tourne. Le profes- 
sionnel, lisant ces lignes, ne manquera pas 
de penser qu'il sait parfaitement cela. Le 
stock est-il un motif de braderie ? Nous pen- 
sons que le consommateur français a une 
fâcheuse tendance à souvent acheter ‘‘de la 
remise’’ sans prendre en considération d'au- 
tres facteurs. 

Acheter en grande surface, par les jolies 
publicités couleur de certaines revues type 
programme TV ? Pourquoi pas. Mais une 
question : pour gagner combien ? 

C'est là que votre revendeur régional prend 
une grande importance {si ce n'est pas un 
arriviste qui vend des micros parce que c'est 
la mode). || vous aidera, vous conseillera, et 
le temps qu'il passe avec vous, il le prend sur 
ses marges bénéficiaires. Alors ? vous aurez 
payé un peu plus cher votre matériel. Peut- 
être, mais au lieu d'un gagnant et d'un per- 
dant, il y a deux gagnants. 


S. FAUREZ 


LES LOGICIELS PROFESSIONNELS DE 


e L e 
pm informatique 
POUR VOTRE CPC 464, 664, 
6128 ET LE PCW 8256 
Réf PM 83A FICH ET CALC 

Gestion de fichiers - Vous créez vos fichiers et vous les 
exploitez - Classement par code - Séquentiel intégré - 
Éditions sélectives (Clients, stocks, paie, tarifs, inventaire, 
étiquettes, adresses - de prix). 


TTC 950 francs 


Rét PM 84A COURRIER TEXTE 
Traitement de courrier - 
lignes. 


Stockage de 20 textes de 200 


TIC 420 francs 
Réf PM 85A FICH ET CALC + COURRIER - TEXTE intégré 


Permet l'édition de courriers aux destinataires sélectionnés 
dans les fichiers avec appel possible de renseignements 
contenus dans les fichiers. 


Rét PM 254 COMPTA PM 
10 journaux, 5000 comptes 
2000 écritures avec | disquette 
Remise à zéro en cours d'année possible avec reprise des 
cumuls. 


Rét PM 43A DEVIS FAC 
Fichier articles avec prix de vente. Rédaction et édition des 
devis et des factures. Livre de ventes. 


TTC 1 200 francs 


TIC 1 450 francs 


TTC 1 050 francs 


Disquettes de démonstration + documentation = 365 francs dont 280 
francs déductibles lors de l'achat de la version complète. 
Envoyez votre adresse avec le chèque en précisant : 
- La rélérence PM 
- La version (démonstration ou complète) 
- Le type de votre CPC (664 ou 6128). 
à retourner à microtex 
22, place de la république - 59170 CROIX 
tél. 20.98.66.86 


ILARD CRÉATIONS 99.31.6473 


= / TT JIM 
M AOUNEAU 
H/219 OST | 


F/227/7/8)) 1 1 
195 WLRD D 


Le traitement de texte 
professionnel pour les 


AMSTRAD - SCHNEIDER 
CPC 464 - 664 - 6128. 
Maintenant avec MAIL-MERGE 


(fusion-courrier) 


11 


Hemaphore 
Logiciels 


CH—-1003 LA PLAIHE 


SUISSE 


EN VRAC... 


CALAMITES CPC 


Page 44 de CPC n° 3, à propos 
de la sauvegarde en binaire de la 
fonction ‘‘'CIRCLE’”, lire : 


DISTRIBUTION DES PRIX 


Nous savons tous que la pro- 
grammation c'est fatiguant ! Sur- 
tout pour ceux qui écrivent des 
programmes courts. Nous avons 
donc décidé de récompenser les 
auteurs de KILOBYTE et ceux de 
la rubrique TRUCS et ASTUCES 
en leur offrant un superbe livre 
d'aventure richement illustré de 
dizaines de photographies en 
couleurs. Îls pourront ainsi se 
détendre avant de se lancer dans 
l'écriture de programmes plus 
volumineux. 

Qu'on se le dise ! 


ORDIPUCES 85 


Microtel organise les journées 
micro-informatiques de l'occa- 
sion qui auront lieu les 16 et 17 


novembre de 11 h à 19h au 
gymnase Danton situé rue Dan- 
ton à Vanves. L'entrée est gra- 
tuite, et les particuliers pourront 
vendre, acheter ou échanger de 
la micro-informatique. Métro : 
Malakoff-Plateau de Vanves 
Bus : 58, 89, PC. 


Soon oser 


Le Club Informatique Bruaysien 
LE CIB$ 

Secrétariat : 

1, rue Latérale 

62470 CALONNE RICOUART 
Siège social : Bruay-en-Artois 


Réunions : 
Vendredi 18 à 20h 
Samedi après-midi 
Dimanche matin 


&1D4 et non &A1D4 


S'ils sont quelque part 
c'est chez 


Microfolie 8 


AMSTRAD 6128 
AMSTRAD 8256 


et les derniers logiciels. 


4, rue André Chénier 
78000 VERSAILLES 
Tél.: 30.21.75.01. 
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LES FONDATIONS 
D'UN PROGRAMIMIE 


Michel ARCHAMBAULT 


8900 n'existe pas). Cinq 
secondes plus tard, vous avez 
identifié à l'écran la fameuse 
ligne à modifier. Si tout le lis- 
ting était continu au pas de dix 


7-60 000. Donc, n'ayez aucune 

hésitation pour espacer vos 

numéros. 

— Dans une suite ‘naturelle’ de 
lignes, le pas minimum est de 


[ 
y à premiers programmes Basic 
d'un débutant commencent 


y] presque toujours par PRINT ou 10. r et sans REM, il faudrait comp- 

Apr Vingt ou trente lignes] — Dès la moindre transition, pas- ter au moins cinq à dix minu- 

plus loin, on fait RUN, et tout sez à la centaine suivante, tes pour retrouver cette 
exemple la suite 600, 610, ligne. 


s'écroule. De même que l'on ne ; 
construit pas une maison sur un 620, 700 (ou carrément 800). 


=] sol meuble, il est suicidaire de se — Dès que l'on attaque une autre 


a 


ANNONCEZ LA COULEUR 


Avant qu'un programme 
démarre, il faut fixer de nom- 
breux paramètres, même s'ils ne 
servent que vers la fin. Autre- 
ment dit, on ‘‘jette les bases’. 


lancer dans un programme sans; partie du programme, on 
prendre des précautions dès le- passe au millier suivant. 
départ. Il ne s’agit que de quel- Exemple : 1220, 1230, 2000, 
-1£ ques bonnes et sages habitudes 2010. 

à prendre. — Chaque ligne en mille est un 
REM, exemple 3000’ CAL- 


La première chose à faire, c'est 
sur papier, c’est le plan, l'itiné- 
raire, la stratégie à suivre, portant 
le nom pompeux d'ORGANI- 
GRAMME ; même si ce ne sont 
que quelques notes griffonnées 
sur une demi feuille. Nous n'en 
parlerons pas, car aujourd'hui on 
va rester très terre-à-terre. 


LES NUMEROS DE LIGNES 


Les numéros autorisés vont de 1 
à 65535 et chacun d’entre eux 
a le même encombrement 
mémoire, deux octets seulement. 
D'autre part, il est très important 
de savoir que le ‘‘pas’’ (l'écart) 
entre deux numéros de lignes qui 
se suivent n'a absolument 
aucune incidence sur la vitesse 
d'exécution du programme. Par 
exemple, un programme de six 


au pas de 1), n'ira absolument 
pas plus vite que s'il était au pas 
de 10 000 entre 10 000 et 


ligne numérotées de 1 à 6 (donc — 


CULS DES MOYENNES. 
Ne croyez surtout pas que c’est 
‘’pour faire joli’’ ! Ce sont plutôt 
des ruses pour subir sans douleur 
les deux grandes lois de l'infor- 
matique ; à savoir : 


1 — UN PROGRAMME NE 
FONCTIONNE JAMAIS DU PRE- 
MIER COUP. 


2 — UN PROGRAMME PARFAIT 
N'EST JAMAIS DEFINITIF. 


Les principaux avantages sont les 

suivants : 

— Grâce à ce saut à la centaine 
ou au millier suivant, nous 
pourrons très facilement ajou- 
ter plusieurs lignes à tel pas- 
sage. Si vous pressentez une 
future mise au point labo- 
rieuse, sautez plusieurs centai- 
nes ou milliers. C'est gratuit. 

— La localisation rapide. Exem- 

ple : la présentation de telle 

page d'écran ne vous plaît 
guère, vous savez que c'est la 

‘’partie 8000’. Alors faites : 

LIST 8000-8900 (même si la 


— Tout d’abord, en ligne 10, un 
REM où se trouvent le nom du 
programme et sa date. Pas 
celle de sa création mais celle 
de sa dernière modification ; 
ceci afin de pouvoir identifier 
la version la plus récente... 

— Fixer les variables entières par 

DEFINT. S'il n'y aura aucun 
nombre décimal ou supérieur 
à 32 767 ou inférieur à 
— 32 768, écrire 50 DEFINT 
A-Z. 
Sinon (par convention) 
DEFINT I-N. Ce qui veut dire 
que toutes les variables numé- 
riques dont le nom commence 
par les lettres |, J, K, L, M ou 
N seront des nombres entiers. 
On peut aussi écrire DEFINT 
A,B, I-P, Z. Deux énormes 
avantages : chaque variable 
entière occupe deux octets au 
lieu de cinq. Les boucles FOR 
NEXT dont l'indice est entier, 
vont deux fois plus vite | 

NOTE La ‘‘convention’’ 

entiers de | à N vient du lan- 

gage FORTRAN car let N sont 
les premières lettres du mot 


EE | 


"INTEGER"" signifiant entier 
en anglais. D'où l'usage cou- 
rant de ces lettres comme 
indices de comptage (FOR 
1=1 TO.., N=N+1, etc.). 

Confirmer les paramètres 
d'écran même s'il s’agit de 
valeurs ‘’normales””, ce afin de 
ne pas hériter de celles du pro- 
gramme précédant (qui res- 


étape menu porte le numéro 
1000. Toujours la même raison, 
c'est facile à retenir, tout 
comme 10 =titre + date et 100 = 
DIM. Avantage : en cas d'arrêt du 
programme, soit volontaire par la 
touche ESC ou plantage imprévu, 
il est facile de ‘‘reprendre la 
main’’ en conservant les variables 
en cours en tapant : 


tent actives même après un. 


NEW). Exemple : 

60 INK O,1:INK1,24:INK2, 
20:INK3,6:BORDER 1 
70 PAPERO:PEN1:MODE1: 

CLS:ORIGINO, 0. 

Tous les DIM sur la même 
ligne. Exemple : . 
100 DIM AC$(24),NB(120), 

RESULT(12,3),REC$(64) 
Mettez cette suite en ligne 
100, parce que c’est facile à 
retrouver. Les avantages : 
e On n'a pas à réécrire ‘DIM’ 
à chaque fois. 
e En cours de programmation, 
si on veut modifier ou ajouter 
un nouveau tableau DIM, on 
n'a qu’à faire EDIT 100. 
° Tous les DIM étant définis 
en début du programme, on 
est certain qu’un GOTO ou un 
GOSUB ne viendra pas ‘‘re- 
passer’" dessus, provoquant 
ainsi un plantage avec ‘‘Redim 
Array Error’” (=tableau redi- 
mensionné). 


LE MENU-CARREFOURT 


Avez-vous remarqué que tous les 
logiciels du commerce, jeux ou 
utilitaires, ont un 
carrefour'’ ? Une page d'écran 
qui propose les options principa- = 
les, chacune d'entre elles peut 
aiguiller sur d’autres menus ; 
mais en fin d'exécution (ou de 
"GAME OVER"), on revient à ce 
même point de départ, d'où on 
peut repartir vers une autre voie. 

C'est l'architecture type de tout 


programme informatique (même 


en ‘‘'grosse”” informatique), c'est 


en quelque sorte le retour systé- = 


matique à la table des matières : 
d'un manuel : on va à tel chapi- 


tre ou on décide de fermer le :: 


livre. 

Nous ferons de même, c’est 
facile, mais surtout si pratique : 
Une ‘‘bonne’’ habitude consiste 
à ce que la première ligne de cette 


GOTO 1000, et Enter. 


Lorsque l'on doit intervenir sur un 
programme Basic vieux de plu- 
sieurs années, c'est bougrement 
pratique, cet ‘‘’universel'’ GOTO 
1000 ! 


LES MODULE 
OÙ SOUS-PROGRAMMES 


A la suite du menu principal, on 
a les différents départs qui, eux 
aussi reviennent à la même ligne 
(sauf pour END), et que trouvons- 
nous sur cette ligne ? GOTO 
1000. Voici l'architecture type 
d'un programme : 


Lignes 10 à 30 
Des REM. 
Lignes 50 à 90 
Les initialisations (DEFINT, cou- 
leurs, MODE, etc.). 
Ligne 100 
Les DIM 
Lignes 110 à 990 
Préparatifs divers, 
-- l'écran. 
iÿ Ligne 1000 
Menu principal — option numéro 


le titre à 


‘’menu- :K. 


* [Ligne 1500 

- Les aiguillages du style 

NON K GOSUB 3000, 8000, 
10000, 5000, 2000. 

Ligne 1510 

GOTO 1000 (c'est le bouclage). 
Ligne 2000 

‘FINAL 

Lignes 2010 à 2030 
Initialisations standard. 

Ligne 2050 

END 

N Lignes 3000 à 65000 

Les différents modules. 

Ligne 65535 

< [FIN DE LISTING. 


K 


1 
1 


En somme, le ‘’moteur’’ du pro- 
gramme va des lignes 10 à 2000, 
ce qui peut faire une trentaine de 


K 


lignes, que le programme fasse 
deux ou vingt kilo-octets ! Ce qui 
change, c'est la taille et le nom- 
bre de ces modules commençant 
en ligne 3000. Avantages : 
Vous avez conçu un petit pro- 
gramme qui marche bien, et tel- 
lement intéressant que vous déci- 
dez de l’étoffer, d'en faire un gros 
programme. Ne le retapez pas ! 
Ajoutez des lignes aux divers 
modules, ou refaites complète- 
ment tel module. Par exemple, le 
‘’bloc 8000’" qui faisait 10 lignes 
va maintenant en faire 68 ! On 
peut créer de nouvelles options, 
donc de nouveaux sous-pro- 
grammes, et ce sans déranger le 
reste ! 


‘QUELQUES REMARQUES 


— Vous voulez un joli titre avec 
animation, son, etc. Vous ne 
pouvez pas le loger entre les 
lignes 500 et 990. Faites sim- 
plement : 


500 ‘TITRE 
510 GOSUB 20000 


Et ‘‘là-bas'”, vous aurez toute 
la place nécessaire. 

Dans notre exemple, nous 
avons prévu les lignes 2010 à 
2020 pour restituer les 
options par défaut que l’on a 
lors de la mise sous-tension 
(PAPER, PEN, INK, ORIGIN, 
etc.) ; seulement celles que 
l'on a dérangées en cours du 
programme. C'est remettre le 


K 


trouvé. Un peu d'ordre évite 


gramme que l'on chargera 
après. Si vous vous êtes servi 


d'une imprimante, mettre aul[:2:# 


début et à la fin du pro- 
gramme : 


PRINT #8,CHR$(27);"" ‘; 
de l'imprimante. 


CONCLUSION | 


routes ces méthodes, ces ‘’bon-É£ 
nes habitudes’, n’ont vraiment 
_férien de contraignant, et nous 
avons démontré tous les avanta- 


-ges que l'on pouvait tirer d’une _L. 
Sarchitecture rationnelle sur des £i& 


fondations solides. 


micro dans l'état où on l’al*:S 


bien des bizarreries sur le pro- ER 


qui vide le buffer de consignes|<£& 
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REDEF” CAR 


Vous qui avez tant peiné, armé 
de votre feuille de papier et de 
votre fidèle crayon, pour créer les 
caractères graphiques indispen- 
sables à vos programmes, ne 
désespérez plus ! 

REDEF'CAR va simplifier ce qui 
était autrefois une corvée, grâce 
aux différentes fonctions qui sui- 
vent : 

— Vous manœuvrez le petit cur- 
seur dans la fenêtre d'édition 
grâce au pavé de curseur. 

— Lorsque vous appuyez sur la 
barre d'espace, la case sur 
laquelle le curseur se trouve 
change de couleur (noire si elle 
était blanche et blanche si elle 
était noire). 

— (E) Efface le caractère de tra- 
vail. 
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— (l) Permet de faire une version 
‘‘inversée’’ du caractère de tra- 
vail (négatif de photo). 

— (M) Comme miroir, produit 
une image retournée du caractère 
de travail par rapport à l’axe ver- 
tical. 

— (D) Cette fonction vous per- 
met de modifier ou de continuer 
un caractère déjà existant. || vous 
faut rentrer les 8 valeurs du 
“*SYMBOL'", puis le programme 
vous rend la main. 

— (S) Utilisant une routine en lan- 
gage machine, ceci permet de 
conserver, sous la forme d'une 
ligne Basic (ex.: SYMBOL 140,1, 
2,4,8,16,32,64,128), le carac- 
tère que vous venez de créer. 
— (Q) Quitte le programme et 
vous permet de lister les carac- 


tères que vous avez mémorisés 
avec la fonction ‘’SYMBOL''(S). 


ATTENTION : 

— Avant chaque utilisation du 
programme, resetez l'ordinateur 
par CTRL SHIFT ESC. 

— Après avoir quitté le pro- 
gramme, et si vous avez con- 
servé des caractères par 
“*SYMBOL”", n'oubliez pas de les 
sauvegarder pour un éventuel 
‘’MERGE”. 

— N'oubliez pas d'intéger au pro- 
gramme utilisant les caractères 
grapiques l’ordre SYMBOL 
AFTER 139. 

— |! faut faire ‘RUN’ après avoir 
quitté l'éditeur, pour pouvoir 
visualiser les symboles créés. 
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CRC 


HHHHHHHEHNEHHHER 
# 

#  REDEF’CAR 

# 

# LOADER 

# 
HHHHHHHHHHHEHEHE 


SYMBOL AFTER 129 
MODE 1:SPEED INK 50,50 
SYMBOL 133,195,231,52,24,44,231,195, 


SYMBOL 134,0,231,20,40,231,0,0,0 
SYMPOL 139,4,8,60,102,126,96,60,0 
INK 0,13:BORDER 13 

INK 1,0:INK 2,24:INK 3,2,20 

WINDOW #1,6,38,5,12:PAPER #1,1:CLS#1 
WINDOW #1,5,37,4,11:PAPER #i,2:CLS#1 
WINDOW #2,10,35,17,19:PAPER #2,1:CLS 
WINDOW #2,9,34,16,18:PAPER #2, 2:CLS# 
LOCATE 
LOCATE 


#1,13,2:PRINT#1,"REDEF? CAR" 
#1,13,3:PRINT#1,STRINGS (9,133 


LOCATE #1,4,6:PRINT#1, "REDEF INISSEUR 
CARACTERES" 
LOCATE #1,4,7:PRINT#1,STRINGS(27,134 


LOCATE #2,3,2:PRINT #2,CHR#$(164)3:"19 


85 St"; CHR$(139);"phane CLOIREC" 

260 PEN JG:LOCATE 1%,Z4:PRINT'"Chargement 
en cours." 

270 FOR I=i TO ZSOO:NEXT I 

280 RUN"'REDEF1" 


90 


? 


? 
? 
L 
? 
? 
L 
L 
Li 


HHHHHHRHHRHHRRHEE 
# 
# REDEF? CAR 
# 
# (c) S.CLOIREC 
# É 


100 INK 3,26:LOCATE 6,24:PEN 3:PRINT"Vou 


lez-vous les instructions 


YA 


110 IF INKEY(34)=0 THEN GOSUR 1790 ELSE 
IF INKEY(48)450 THEN 110 


120 
130 
140 
150 


? 


?  FENETRES 


? 


INK O,13:INK 1,02:INK 2,24:INK 3,24,1 


J:MODE 1:PBORDER 13 


160 ? 

170 WINDOW #0,2,40,23,25:PAPER #0,1:CLS 
#0 

180 WINDOW #1,2,11,2,11:PAPER #1,1:CLS # 
1 

190 WINDOW #2,14,22,2,11:PAPER #2,1:CLS 
#2 

200 WINDOW #3,25,40,2,11:PAPER #3,1:CLS 
#3 

210 WINDOW #4,2,40,14,20:PAPER #4,1:CLS 
#4 

220 WINDOW #0,1,39,22,24:PAPER #0,2:CLS 
#0 

230 WINDOW #1,1,10,1,10:PAPER #1,2:CLS # 
: 

240 WINDOW #2,13,21,1,10:PAPER #2,2:CLS 
#2 

250 WINDOW #3,24,39,1,10:PAPER #3,2:CLS 
#3 

260 WINDOW #4,1,39,13,19:PAPER #4,2:CLS 
#4 

270 ? 

280 *  CARACTERES GRAPHIQUES 

290 ? 

300 SYMEOL AFTER 128:DEFINT A-Z:DIM VLIG 
(8),CAR(8,8):SPEED INK 50,50 

310 ? 

320 SYMBOL 129,255,129,129,129,129,129,1 
29,255 

330 SYMBOL 130,255,153,153,231,231,153, 1 
53,255 

340 SYMPBOL 131,231,231,231,24,24,231,231 
231 

3 

350 SYMBOL 132,255,255,295,255,295,295,2 
55,295 

360 SYMBOL 133,195,231,52,24,44,231,195, 
0 

370 SYMEOL 134,0,231,20,40,231,0,0,0 

380 SYMBOL 135,0,4,70,123,123,70,4,0 

390 SYMPROL 136,0,0,0,248,124,0,0,0 

400 SYMBOL 137,244,135,245,7,120,96,28,2 
52 

410 SYMBOL 138,225,128,278,8,18,37,71,13 
3 

420 SYMEOL 139,4,8, 60, 107, 126,96, 60,0 
430 ? 

440 * INITIALISATION 

450 ? 

460 KEY 138,"INK 1,0:INK 0,13:PORDER 13: 
PEN 1:PAPER O:MODE Z:LIST"+CHR#(13) 

470 PEN 1 

480 LOCATE Z,Z:PRINT CHR#(137):;" REDEF’C 


AR ";CHR$(138):;" 


"yCHRÉ(164)+"1985 St';: 


CHR$(139);"phane CLOIREC'":LOCATE 4,3:PRI 


NT STRING$(9,134) 

490 NUMLIG=1 : NUMSYMB=140 : ADR=&7000 

500 GOSUE 1070 

510 LOCATE #3,6,2:PRINTH3,"C MODE l': PRINT 

#3, SPC(S)+STRING$S (6,133) 

520 LOCATE #3,3,5:PRINT#3, "ZERO UN" 

530 LOCATE #3,3,6:PRINT#3,STRINGS(4,134) 

:SPC(S):STRINGS (2,134) 

540 LOCATE #4,16,2:PRINT#4, " COMMANDES" :P 

RINT#4,SPC(15) :STRING# (9,133) 

550 LOCATE #4,1,5:PRINT#4," CD] MODIFIE 
CEJ EFFACE [CQJ QUITTE" 

560 PRINT#4," CIJ INVERSE CMJ MIROIR 


CS] SYMPOL" 

270 ? 

580 ? ROUTINE PRINCIPALE 
590 ? 


600 CALL &PPI8 

610 IF INKEY(8)=0 THEN X=X-1 ELSE IF INK 

EY{1)2=0 THEN X=X+1 

620 IF INKEY(O)=0 THEN Y=Y-1 ELSE IF INK 

EY(2)=0 THEN Y=Y+1 

630 IF X2XMIN THEN X=XMIN ELSE IF X:XMAX 
THEN X=XMAX 

64Q IF YEYMIN THEN Y=YMIN ELSE IF Y:YMAX 
THEN Y=YMAX 

650 LOCATE #1,A,BR:IF CAR(A-1,P-1)=0 THEN 
PRINT #1,CHR$(129) EiSE PRINT #1,CHR$(1 
32) 

660 LOCATE #1,X,Y:IF CAR(X-1,Y-1)=0 THEN 
PRINT #1,CHR$(130) ELSE PRINT #i,CHR#(1 
31) 

670 LOCATE #1,X,Y:IF INKEV(47)<;0 THEN 7 

00 


680 IF CAR(X-1,Y-1)=0 THEN CAR(X-1,Y-1)=. 


L:PRINT#1, CHR$(131):VLIG(Y-1)=VLIG(Y-1)+ 
24 (9-X) :LOCATEHZ,9-LEN(STR#(VLIG(Y-1))), 
Y:PRINTHZ, STR$(VLIG(Y-1)):PLOT 408+Xx4,2 
78+16-24V,1:PLOT 408+X#4+2,278+16-ZXY, 1: 
PLOT 550+X*2,278+16-2%Y, 1:GO0TO0 700 

690 CAR(X-1,Y-1)=0:PRINT#1, CHR$(130) :VLI 

G(Y-1)=VLIG(Y-1)-ZA(9-X) :LOCATEHZ, 6,Y:PR 
INTHZ," 
))),Y:PRINTH2,STRS(VLIG(Y-1)):PLOT 408+X 
*4,279+16-Z#Y,2:PLOT 408+X#4+2,278+16-2% 

Y,Z2:PLOT 550+X*2,278+16-2%Y,2 

700 A=X:P=V 

710 IF INKEY(58)=0 THEN GOSUB 1070 

720 IF INKEY(67)=0 THEN CLS:LOCATE 12,2: 
PRINT" FIN DE PROGRAMME. " :GOSUP 1640:MOD 

E 2:CALL &8000:POKE &170+LENDAT+1,0:POKE 
&170+LENDAT+Z, 0: END 

730 IF INKEY(35)=0 THEN GOSUP 780 

740 IF INKEY(61)=0 THEN GOSUR 930 

750 IF INKEY(38)=0 THEN GOSUR 1720 

760 IF INKEY(60)=0 THEN GOSUR 1380 

770 G0TO 600 

780 ? 

790 * ROUTINE ? INVERSE”’ 


"sLOCATEHE,9-LEN(STR$S(VLIG(Y-1, 


800 

810 FOR I=1 TO B:VLIG(I)=O:NEXT I 

820 FOR J=1 TO 8:FOR I=1 TO B:IF CAR(I,J 
)=0 THEN CAR(I,J)=1 ELSE CAR(I,J)=0 

830 IF CAR(I,J)=1 THEN VLIG(J)=VLIG(J)+2 
A(B-1) 

840 NEXT I,J 

850 FOR J=1 TO 8:FOR I=1 TO 8 

860 LOCATE #1,1+1,J+1:IF CAR(I,J)=1 THEN 
PRINT #1,CHR$(132) ELSE PRINT #1,CHR#(1 

29) 

870 IF CAR(I,J)=1 THEN COUL=1 ELSE COUL= 


880 PLOT 408+(1+1)*4,27B+16-2x%(J+1), COUL 
:PLOT 408+(1+1)*4+2,278+16-2x(J+1), COUL: 
PLOT 550+(1+1)#2,278+16-2*(J+1), COUL 

890 NEXT I,J 

900 IF FLAG=1 OR FLi=1 THEN RETURN 

910 GOSUR 1190 

920 RETURN 

930 ? ; 

940 ? ROUTINE MODIFIER? 

950 ? 

960 GOSUE 1070 

970 PRINT CHR$(7) 

980 CLS:LOCATE 10,Z:PRINT"ENTREZ VOS VAL 

EURS." 

990 FOR I=1 TO B:LOCATE #2,6,1+1:PRINT#Z 
” ":LOCATE #2,6,1+1:INPUT #2,"",VLIG 
(1):IF VLIG(I)€0 OR VLIG(1)+255 THEN I=: 

-1 

1000 NEXT I 

1010 GOSUR 1190 

1020 FOR J=1 TO B:LIG#H=PINS(VLIG(J)):FOR 
I=i TO LEN(LIG#):PT=VAL(MID#(LIGS,1,1)) 
: CAR(B-LEN(LIGS)+I,J)=PT:NEXT 1,9 

1030 FLAG=1:GOSUR 850:FLAG=0 

1040 LOCATE Z,2:PRINT CHR$(137);" REDEF’ 

CAR ";CHR$(138)3"  ";CHR$(164)+"1985 St" 
: CHR#(139);"phane CLOIREC":LOCATE 4,3:PR 
INT STRINGS(9,134) 

1050 GOSUR 1190 

1060 RETURN 

1070 ? 
1080 ? 
1090. ? 
1100 ERASE VLIG, CAR 

1110 FOR I=1 TO B:LOCATE #1,2,1+1:PRINTE 
1,STRING#(8,129):MEXT I 

1120 LOCATE #3,1,7:PRINTHZ, SPACE# (49) 
1130 PLOT 398,266,1:DRANR D,32:DRAUR 65, 

D:DRAWR 0,-32:DRAUR -66,0 

1140 PLOT 528,266,1:DRAWR 0,32:DRAUR 64, 

D:DRAWR 0,-32:DRAWR -64,0 

1150 PLOT 414,274,3:DRAWR 34,0:DRAWR O.1 

B:DRAWR -34,0:DRAUR O,-18 

1160 PLOT 552,274:DRAUR 18,0:DRAUR 0,19: 

DRAWR -18,0:DRAWR 0,-18 

1170 IF FLi=i THEN RETURN 


ROUTINE ?’EFFACE? 


1180 DIM CAR(B,8),VLIG(B) 

1190 XMIN=Z: XMAX=9: YMIN=Z: YMAY=9 : AZ: Pa 
:X=2:V=2:LOCATE#I,X,Y:IF CAR(X-1,Y-1)=1 
THEN PRINT#1,CHR$(131) ELSE PRINT #1,CHR 
$(130) 

1200 FOR 1=1 TO B:LOCATE #2,2,1+I:PRINT 
#2, CHR$ (136) ;MIDS(STR#(1),2) ; CHR$(135):S 
PC(4-LEN(STRS(VLIG(I))));STRS(VLIG(I)):N 
EXT 

1210 RETURN 

1220 ? 
1230 ? 
1240 ? 
1250 FLi=1:CLS:LOCATE 12,2:PRINT"FONCTIO 
N EN COURS":PRINT CHR$(7) 

1260 GOSUR 1110:ERASE VLIG 

1270 DIM CAR1(8,8),VLIG(8) 

1200 FOR J=1 TO 8:FOR I=1 TO B:CAR1(I,J) 
=CAR(9-I,J):NEXT 1,1 

1290 FOR J=1 TO B:FOR I=1 TO B:CAR(I,J)= 
CARI(I,J):NEXT I,J 

1300 ERASE CAR 

1310 GOSUP 850 

1320 FOR J=1 TO B:FOR I=1 TO B:IF CAR(I, 
J)=1 THEN VLIG(J)=VLIG(J)+24(8-1) 

1330 NEXT I,J 

1340 GOSUR 1190 

1350 LOCATE 2,2:PRINT CHR$(137):" REDEF” 
CAR "3; CHR#(138);"  ":;CHR$(164)+"1985 St" 
;CHR$(139) ;"phane CLOIREC":LOCATE 4,3:PR 
INT STRINGS# (9,134) 

1360 FL1=0 

1370 RETURN 

1380 ” 
1390 ” 
1400 ? 
1410 CLS:LOCATE 12,2:PRINT'SYMROL EN COU 
RS"+CHRS (7) 

1420 I=1:1F ADR=&7000 THEN LENDAT=32 
1430 PÜKE ADR, 33 

1440 POKE ADR+1,0 

1450 POKE ADR+2, NUML1G 

1460 POKE ADR+3,0 

1470 POKE ADR+4, 07 

1480 POKE ADR+5, 32 

1490 POKE ADR+6, 25 

1500 POKE ADR+7, NUMSYME 

1510 FOR BC=ADR+8 TO ADR+29 STEP 3 

1520 POKE BC,44:P0KE RC+1,25:POKE BC+2,V 
LIG(I) 

1530 I=1+1 

1540 NEXT BC 

1550 POKE ADR+32,0 

1560 ADR=ADR+33 

1570 NUMLIG=NUMLIG+1 

1580 NUMSYMP=NUMSYMP+1 

1590 LENDAT=LENDAT+33 

1600 FOR att=1 TO 1000:NEXT att 

1610 LOCATE 11,2:PRINT"EFFACEMENT  (Q/N) 


ROUTINE MIROIR? 


ROUTINE ? SYMPOL? 


?":1F INKEY(34)=0 THEN GOSUR 1100 ELSE 
IF INKEY(46)£;0 THEN 1610 : 
1620 LOCATE 2,Z:PRINT CHR$(137);" REDEF’ 
CAR "3; CHR$(130)5;"  "s;CHR$S(164)+"1985 St" 
3 CHR$(139) ;"phane CLOIREC":LOCATE 4,3:PR 
INT STRING$(9,134) 

1630 RETURN 

1640 ? : 
1650 ? 
1660 ? 
1670 RESTORE 1770 
1680 FOR PC=88000 TO &8000+11 
1690 READ C$:C=VAL("&"+C#) 

1700 POKE BC,C 

1710 NEXT 

1720 P$=HEX$ (LENDAT) 

1730 IF LEN(P$)<5;4 THEN P$="O0"+P#:GÜTO 1 

730 

1740 POKE &8007,VAL("&"+RIGHTS(P$,2)) 
1750 POKE 88008, VAL("£&"+LEFTS(P$,Z)) 
1760 RETURN 

1770 DATA 2?1,00,70,11,70,01 

1780 DATA 01,00,00,ED,BO,C9 

1790 ? 
1800 ? 

1810 ? 
1820 MODE Z:INK 1,0 

1830 LOCATE 16,1:PRINT"REDEF* CAR" :LOCATE 
16,2:PRINT STRING$(9,133) 

1840 PRINT:PRINT:PRINT:PRINT" Redef”’ ca 

r est. comme son nom l’indique, un redef 

inisseur de caracteres, Il vous permet 
tra de creer facilement tous les types d 

e symboles graphiques dont vous pourre 

z avoir besoin dans vos propre programme 

s." 

1850 PRINT:PRINT:PRINT" Voici les comm 

andes que cet utilitaire met a votre dis 

position:" 

1860 PRINT:PRINT SPC(10):;"- EFFACE : vi 

de le caractere qui etait a l’affichage" 
1870 PRINT SPC(10);"-.INVERSE : produit 

une image inversee du caractere de trava 
il" 

1880 PRINT SPC(10):;"- MODIFIE : permet d 

e taper les codes d’un symbole pour modi 

fication" 

180 PRINT SPC(10):;"- MIROIR : retourne 
le caractere de travail” 

1900 PRINT SPC(10):;"- SYMBOL : stocke 1 

e caractere de travail en memoire" 

1910 PRINT SPC(10);"- QUITTE : arrete 1 

e programme et affiche les caracteres ay 

ant ete":PRINT SPC(ZZ);"stockes avec la 

fonction ?’SYMPOL’" 

1920 LOCATE 1,25:PRINT'"Appuyez sur une t 

ouche pour retour au programme..." 

1930 CALL &PBPIB:CALL &PP18 

1940 RETURN 


IMPLANTATION DU L.M. 


INSTRUCTIONS 


CARRE MAGIQUE 


Vannary TEA 


n carré magique est un 
carré divisé en cellules 
dans lesquelles les nom- 
bres entiers à partir de 1 sont 
arrangés de telle manière que les 
sommes de chaque ligne, de cha- 
que colonne et de chaque diago- 
nale soient égales. 

Ce programme vous calcule tous 
les carrés magiques d'ordre N 
impair dont le maximum est fixé 
à 91. En effet, à partir de 93, la 
mémoire déborde (Memory Full). 
Le tableau B(K,L) est un tableau 
intermédiaire utilisé pour le rem- 
plissage des cases par des nom- 
bres T qui sont transférés au fur 
et à mesure dans le tableau A(I,J) 
après vérification que ladite case 
est bien ‘‘’inoccupée’’ ; dans le 
cas contraire, il faut le mettre ail- 
leurs (voir organigramme). 
L'impression du carré magique se 
fait. en alignement par lignes et 
colonnes uniquement jusqu’à la 
dimension 14 ; au-délà, comme 
il est impossible d'imprimer tou- 
tes les colonnes sur une même 
ligne, il est donc affiché ligne par 
ligne. D'autre part, il y a la pos- 
sibilité de vérifier la fiabilité du 
carré magique affiché. 

La durée de calcul d’un tableau 
91 x 91 est d'environ 5 minutes. 


LISTE DES VARIABLES 


: dimension du tableau A. 

[ : indice de lignes de A. 

J : indice des colonnes de A. 

M: dimension du tableau intermédiaire uti- 

lisé B. 

K :indice de lignes de B. 

L :indice de colonnes de B. 

F  :indice de la boucle du temps. 

T _: nombres entiers remplissant le carré 
magique. 

CPT : compteur servant de test pour sortir 
de la boucle, une fois que le tableau 
A(I,J) est entièrement rempli. 

D :utiliser dans TAB pour l'alignement, 
par lignes et colonnes lors de l’impre- 
sion du carré magique A{|,J). 

SI _: somme des lignes, colonnes et diago- 
nales du carré magique. 
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Vous aimez jouer avec les nombres ? Voici un programme 
capable de générer des carrés magiques. Comment ? vous ne 
connaissez pas ? Essayez pour voir ! 


ORGANIGRAMME DU 
CARRE MAGIQUE 


initialisation de 
AU,J), B(K,L), 
+, CPT 


K—partie 
entière 
par excès de 
N/2 


L—partie 
entière de N/2 


Carré magique 
All,J) avec 
possibilité de 
vérification 


10 ? 
DO ?HAEREERÉRÉREEERÉREREEREREREREREREREX 


30 ?+* * 


40 ?* CARRE MAGIQUE * 


30 ?’+ + 


GO 7 KR RE EEE DEEE DE DE HE DEEE DE DE DEEE EME HE DE DEEE EE 


90** par TEA Vannaru 


140 CLS : MODE O 
150 LOCATE 3,10:PRINT STRING#(16, CHR$(Z1 


160 LOCATE 3,11:PRINT STRING#(1,CHR$(Z11 
170 LOCATE 18,11:PRINT STRINGS(1, CHRS (20 
180 LOCATE J3,1Z:PRINT STRINGS(1,CHR$&(Z11 
190 LOCATE 18,12:PRINT STRING#&(1, CHR$(:0 
00 LOCATE 3,13:PRINT STRINGS(1,CHR$(Z11 
:10 LOCATE 18,1J:PRINT STRINGS$(1,CHR$&(ZO 
220 LOCATE 3,14:PRINT STRING$S(1,CHR#(Z11 
230 LOCATE 18,14:PRINT STRINGS$&(1, CHR$&(Z0 
240 LOCATE 3,15:PRINT STRINGS(1,CHR#&(Z11 
250 LOCATE 18,15:PRINT STRINGS(1, CHR$(ZO 


260 LOCATE 3,16:PRINT STRINGS$(16, CHR$ (20 
8)) 

270 LOCATE 4,193:PRINT CHR$(67)+CHR$ IS )+ 
CHR$S(BZ)+CHR$S(BZ)+CHR$S(697)+"  "+CHRS(77) 
+CHRE CES )+CHRS(71)+CHRS(7J3)+CHRE (91) +CHR 
$(85)+CHR$(69) 

280 FOR F=1 TO 1200 : 
90 ? 

300 ? 

310 CLS : MODE # 

320 DEFINT A-M,0-Z7 
330 PRINT:PRINT:PRINT:PRINT 

340 PRINT" ---; ENTREZ LA DIMENSION DU C 
ARRE MAGIQUE :"3;:INPUT N 

350 PRINT 

J60 IF N£INT(N) THEN PRINT CHR$(7):PRIN 
T" x LA DIMENSION DU CARRE MAGIQUE DOIT 
ETRE UN NOMBRE ENTIER NATUREL. DESOLE !" 
:GOSUR 1740:GO0T0 310 


NEXT F 


370 IF N£3 THEN PRINT CHR$(7): PRINT" # L 
E CARRE MAGIQUE NE PEUT EXISTER QUE POÛR 
UNE DIMENSION SUPERIEURE À £":GOSUR 174 
O:G0TO 310 
380 IF N+91 THEN PRINT CHR$(7): PRINT" + 
IL EST IMPOSSIBLE DE FAIRE LE CALCUL POU 
R UN CARRE MAGIQUE D'ORDRE 
SUPERIEUR À 91, CAR LA MEMOIRE DERGR 

DE. VRAIMENT DESOLE !'":GOSUR 1740:GO0T0 3 
10 

390 Q=INT(N/2) 

400 IF N/Z=Q AND N£=91 THEN PRINT CHR$(7 
):PRINT" x JE NE TRAITE QUE DES CARRES M 
AGIQUES D'ORDRE IMPAIR. DESOLE !":GOSUR 


1740:G0T0 310 


410 M=N+1 

420 DIM A(N,N),B(M,M) 

430 ? 

44D INITIALISATIO 
N DU TABLEAU À ==" 
450 ? 

460 FOR I=i TO N 


470 FOR J=i TO N 


480 A(I,J)=0 
490 NEXT J : NEXT I 


530 FOR K=1 TO M 
240 FOR L=i TO M 
550 P(K,L)=0 

560 NEXT L: NEXT K 


600 PRINT:PRINT 
610 FOR F=i TO N:NEXT F : PRINT" 55 PAT 
IENCE S.V.P., JE CALCULE #éé " 

6:0 PRINT:PRINT 

630 T=0:1=0:J=0:K=0:L=0 

640 K=CINT(N/2) 

650 L=INT(N/2) 

660 K=K+1 

870 L=L+1 

680 T=T+1 

690 PR(K,L)=T 

700 IF KiN THEN GOTO 740 

710 IF LiN THEN GOTO 730 

720 I=K : J=L : GOTO 770 

730 I=K : J=M-N : GOTO 770 

740 IF LiN THEN GOTO 760 

750 I=M-N : J=L : GOTO 770 
760 I=M-N : J=N 

770 IF A(I.,J)=0 THEN GOTO 82 
780 I=I+1 

790 IF IN THEN I 
800 IF J*=Z AND J 


810 GOTO 770 


=M-N 
€N OR LEN THEN J=J-1 
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820 A(I,J)=P(K,L) 
830 CPT=CPT+1 
840 IF CPT£È:NAZ THEN K=I : L=J : GOTO 66 
0 
850 PRINT:PRINT 
860 IF N*+13 THEN GOTO 1060 
? 


870 

880 ? ----------- IMPRESSION DU CÂRRE MA 
GIQUE D'ORDRE INFERIEUR À 15-------—----- 
890 ? 


900 CLS : MODE Z 

910 PRINT TAR(1B8)"#xxx#xx##x CARRE MAGIQUE 
D'ORDRE :"3;Ns "4x" 

920 PRINT:PRINT:PRINT 

930 D=0 

940 FOR I=i TO N 

950 FOR J=i TON 

980 D=D+i 

970 PRINT TAR(3#D) A(I.J) : 

980 D=D+i 

990 NEXT J 

1000 D=0 

1010 NEXT I 

1020 GÔÜTO 1180 

1020 ? 

1040 ? -----—- IMPRESSION DU CARRE MAGIQU 
E D'ORDRE SUPERIEUR GU EGAL À 15 ------ 

1050 ? 

1060 PRINT CHR$(7): PRINT"'POUR UN CARRE 

MAGIQUE D'ORDRE SUPERIEUR À 13, IL EST I 
MPOSSIBLE D'AFFICHER TOUTES LES COL 
ONNES DU CÂRRE MAGIQUE SUR UNE MEME LIGN 
E. AUSSI, ON SE PROPOSE DE L’AFFICHER LI 
GNE PAR LIGNE.":GOSURP 1740 

1070 PRINT:PRINT:PRINT 

1080 CLS : MODE # 


1090 PRINT TAB(1B) "xxkktkxx CARRE MAGIQ 


UE D'ORDRE : "asNs"#æenrx" 

1100 PRINT:PRINT:PRINT 

1110 FOR I={i TON 

1120 PRINT'LIGNE "yls"s "3 

1130 FOR J=i TO N 

1140 PRINT A(I,J); 

1150 NEXT J 

1160 PRINT:PRINT:PRINT 

1170 NEXT I 

1180 PRINT: PRINT: PRINT: PRINT" —---# VOULE 
Z-VOUS EFFECTUER UNE VERIFICATION DE CE 
CARRE MAGIQUE (O/N) "3;:INPUT R$ 

1190 IF R$“;"O" AND R$<"o" AND R$<S"N" 
AND R$£5"n" THEN PRINT CHR$(7):PRINT:PRI 


NT'ERREUR !!! REPONDEZ PAR © OÙ N"':GOTO 
1180 

1É00 IF R$="N" OR R$="n" THEN GOSUR 1670 
: GOTO 1610 


1210 PRINT:PRINT 

12:20 CLS : MODE & 

1230 PRINT TAR(10) "---- LA SOMME DE CHA 
QUE LIGNE DU CARRE MAGIQUE ----" 

1240 PRINT:PRINT:PRINT 
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1250 FOR I=1 TO N 

1260 FOR J=1 TO N 

1270 S'=S'4A(1,J) 

1280 NEXT J 

290 PRINT:PRINT TAB(16)"LIGNE "2:13": 

SOMME =":;S! 

1300 S'=0 

1310 NEXT I 

1320 PRINT:PRINT:PRINT:PRINT 

1330 GOSUP 2040 

1340 CLS : MODE 2 

1350 PRINT TAB(1O) "---- LA SOMME DE CHA 

QUE COLONNE DU CARRE MAGIQUE ----" 

1360 PRINT:PRINT:PRINT 

1370 FOR J=1 TO N 

1380 FOR I=1 TON 

1390 S'=S'+A(1,J) 

1400 NEXT 1 

1410 PRINT:PRINT TAB(16)"COLONNE ":Ji": 
SOMME =":S! 

1420 S'=0 

1430 NEXT J 

1440 PRINT:PRINT: PRINT 

1450 GOSUR 2040 

1460 CLS : MODE 2 

1470 PRINT"--- LA SOMME DE CHACUNE DES Z 
DIAGONALES PRINCIPALES DU CARRE MAGIQUE 


1480 PRINT:PRINT:PRINT 

1490 FÔR I=1 TO N 

1500 J=I 

1510 S'=S'+A(I,J) 

15:20 NEXT 1 

1530 PRINT:PRINT TAR(10)"SOMME DE LA 1ER 
E DIAGONALE :"3,5! 

1540 S'-0 

1550 FOR I=N TO 1 STEP -1 

1560 J=I 

1570 S'=S'+A(1,J) 

1580 NEXT I 

1590 PRINT:PRINT TAR(10)"SOMME DE LA ZEM 
E DIAGONALE :";,S! 

1600 GOSUR 1670 

1610 PRINT:PRINT:PRINT" ===; VOULEZ-VOUS 
FAIRE UN AUTRE CARRE MAGIQUE (O/N) "331 
NPUT A$ 

1620 IF A$<*"O" AND A$‘:"o" AND A$<>"N" 

AND A$<>"n" THEN PRINT CHR£(7):PRINT:PRI 
NT'ERREUR !!!.REENTREZ © OÙ’ N': GOTO 161 

(a) 

1630 IF A$="0" OR A$="o" THEN RUN 

1640 PRINT:PRINT 


1650 END 

1660 PRINT:PRINT 

1670 ? ---------- SOUS-PROGRAMME DE REI 
NITIALISATION DES VARIABLES ----- 
1660 


1690 ERASE A,B 
1700 RETURN 
1710 ? 


1720 ? 
DE TEST DE 
1730 ? 

1740 SYMBOL 
1750 SYMBOL 
1760 SYMPOL 
128,128 
1770 SYMBOL 
1780 SYMPOL 


AFTER 30 
128,63,63,33,33,1,1,1,1 
129,252,252,132,132,128,128, 


en D LP De 
131,128,128,128,128,192,197 


1790 SYMPOL 
4,224 

1800 SYMPOL 
8 

1810 SYMPOL 
1820 SYMPOL 
1830 SYMPOL 
1840 SYMPOL 
1850 SYMPOL 
1860 SYMPOL 
1870 SYMPOL 
4,22 

1880 SYMPOL 
1890 SYMPOL 
1900 SYMBOL 
1910 SYMPOL 
1920 SYMBOL 


va 


1930 SYMPÔÜL 


141,240,240,26,28 
142,224,224,112,112,31,31 
143,0,0,28,28,240, 240 
144,56,56,56,56,56,56,63,63 
145, 28, 28, 28, 28,28,28,292,29 


132,15,15,112,112,224,224,22 
133,224,224,56,56,28,28,28,27 


34,224,224,112,112,15,15 
135,28,28,56.56.224,274 
136,56,56,58,56,56,56,56,36 
137,28,28,28,29,28,26,28,28 
138,56,56,56.56,15,15 
139,28, 28, 28,26,740, 740 
140,31,31,112,112,224,224,22 


146,56,56,56,56,56,56 


1940 SYMPOL 147,20,28,20,29,29,28 


1950 SYMPGL 
3 


148,255,295,56,56,56,57,63,6 


1960 SYMBOL 
128 

1970 SYMEGL 
1980 SYMPOL 
1900 SYMPOL 
<000 SYMPOL 
:010 SYMPOL 


149,252,252,17,12,0,128,178, 


150,57,56,56,56,295,295 
151.129.0,12,12,292,252 
152.1,3,6,12,24,48,96,197 
153,192,96,48,24,12,6,3,1 
154,0,0.0.0,0,0,0,0 
2020 SYMBOL 156,128,192,96,49,24,12,6,3 
2030 SYMBOL 157,3,6,12,24,48,96,192,128 
2040 PRINT:PRINT 
2050 LOCATE 33,23:PRINT CHR#(192): : PRINT 
CHRE(194):: PRINT CHRS(128)::PRINT CHR#( 
129)::PRINT CHR$(132)3:PRINT CHR$(133):: 
PRINT CHR$(136)::PRINT CHR$(137) : : PRINT 
CHR#(140)::PRINT CHRS(141):: PRINT CHRS( 


©144)5:PRINT CHR$(145)3;:PRINT CHR$(148):: 


PRINT CHR$(140) 

2060 LOCATE 47,Z23:PRINT CHRÉ(154) : : PRINT 
CHR#(156) : 

070 LOCATE J5,24:PRINT CHR$(153):: PRINT 
CHR$(154):;:PRINT CHR$S(130):: PRINT CHPRS#( 
131)352PRINT CHR$S(154):: PRINT CHR$(135):: 
PRINT CHR$(138)::PRINT CHR$(139):: PRINT 


© CHR$C14Z) 2: PRINT CHR$(143):: PRINT CHR$(I 


46); : PRINT CHRÉ(147)3;:PRINT CHR$(150)::P 
RINT CHR#(151): 

£080 LOCATE 47,24:PRINT CHR$(154) :: PRINT 
CHR$(157): 

2090 IF INKEY$="" THEN GOÜTO 090 

2100 RETURN 


vis à tous les chasseurs de 

flag-ships, de gloutons et de 
space-invaders : Montez sur la 
plus haute marche du podium en 
nous envoyant les high-scores 
réalisés sur vos jeux d'arcade pré- 
férés. Votre nom figurera alors 
dans le tableau d'honneur de 
CPC. 
ll suffit pour cela de nous envoyer 
le nom du programme, votre 
nom, votre score et une photo- 
graphie d'écran en noir et blanc 
ou en couleur permettant d’au- 
thentifier votre performance. 
Mais attention, tout ceci n'est 
valable que pour les programmes 
pour lesquels on ne peut pas 
régler les paramètres de jeu ni 
changer de niveau. Nous avons 
un jury constitué de jeunes Ams- 
tradmaniaques qui se chargeront 
de détecter et d'éliminer toute 
tentative de tricherie. Alors, tous 
à vos joysticks et bonne chance ! 


ELECTRO FREDDY 


ROLAND IN THE 
CAVES 
HUNCHBACK 
GALAXIA 
FRUITY FRANCK 
(slow) 
SURVIVOR 
DEFEND OR DIE 
MANIC MINER 
SPANNERMAN 
SPACE HAWKS 
HARRIER ATTACK 
3D-INVADERS 
FIRE-ANT 

LASER WARP 
ROLAND GOES 
DIGGING 
PINBALL WIZARD 
(vitesse 5) 

ALIEN BREAK-IN 


es Records 


Emmanuelle GEORGET 
Stéphane CLOIREC 


1650 
865144 


101700 
3720 
11320 


Stéphane PRUNIERE 
Yannick BOUREE 
Eric FAUREZ 


457300 
177150 
18988 
35900 
71550 
122240 
2189 
14900 
15360 
101L15p 


Stéphane FRANCK 
Christophe SURAT 
Stéphane FRANCK 
John PERELLI 
Fabrice BAUER 
Alain COMBOT 
Stéphane PRUNIERE 
Yannick TERTRE 
Nicolas CLOAREC 
Philippe ANGEARD 


7970 | Matthieu LEJEUNE 


42240 | Raphaël BERNARD 
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Re YU 


KKK 


QQQQQQRQÇ ÈQQQQQKS 


LEXIQUE } 


x 
= DA 


ANIGLAIS/FRANCAIS 


orsque l’on se débat avec 
une notice en anglais — 
c'est hélas fréquent — on 


se dit souvent ‘‘j’ai déjà recher- 
ché ce mot dans le dictionnaire 
et je ne m'en souviens plus’. 
Alors, changeons nos habitudes : 
avant d'attaquer une lecture 
anglaise, lançons ce programme 
fichier. 


Mot inconnu ; on le tape au cla- 
Vier. S'il est déjà au fichier, 
réponse presque instantanément 
(environ une seconde), s’il ne 
l'est pas, dictionnaire. Une fois la 
‘traduction trouvée, vite option C 
(=compléter) pour gonfler le 
fichier de ce nouveau mot anglais 
et ainsi de suite. A la fin, on sau- 
vegarde le fichier ainsi augmenté. 
Le mien contient déjà 286 mots 
(ceux que je risque d'oublier) et 
ce n’est qu'un début... 


Ce logiciel est donc un gestion- 
naire de fichiers mais ‘‘très spé- 
cialisé””, conçu uniquement pour 
cet usage, ce qui lui confère des 
performances que ne pourrait 
avoir un ‘'gestionnaire à tout 
faire’ du commerce. Y compris 
certains progiciels tournant sur 
IBM-PC 
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Michel ARCHAMBAULT 


SES PARTICULARITES 


— Un seul et unique menu. On a 
supprimé les questions inutiles 
genre ‘‘’nom du fichier à char- 
ger'’, puisque c’est toujours le 
même et qu'il se charge dès le 
départ. 

— Chaque fiche n’a que deux 

rubriques : mot anglais + sa tra- 

duction française. Elle tient sur 
une ligne d'écran, avec son 
numéro. 

— De ce fait, la saisie et la lec- 

ture se font en ‘‘plein écran’’. Il 

est en effet utile de pouvoir lire 

quelques lignes plus haut la fiche- 

mot que l'on a demandée il y a 

quelques minutes... Vous voyez 

pourquoi. 

— Au menu principal, il suffit de 

taper la lettre initiale de ce que 

l'on veut faire (sans ENTER). De 
haut en bas, nous avons : 

À : Anglais vers français (c'est 
la plus utilisée !). 

F : Français vers anglais. Eh, 
oui ! La recherche se fait 
indifféremment dans les 
deux sens. 

C : Compléter le lexique. 

M : Modifier une fiche (correc- 
tion d'erreur). 


Viennent ensuite les options 


moins fréquentes : 

E : Enregistrement du fichier 
(s'il a été complété ou cor- 
rigé). 

T : Tri alphabétique (par les 
mots anglais). C'est, avour- 
ons-le un petit luxe quasi 
inutile. 

| : Impression du fichier sur 
imprimante, un autre gad- 
get. | 

Q : Quitter le programme (=CLS: 
END). 

— Quand on est dans l’une des 

rubriques courantes, il suffit de 

taper Q et ENTER pour revenir au 
menu. Ce retour est automatique 
pour les options E, T et |. 

— En recherche ‘A’ ou ‘‘F”' tout 

le fichier est exploré de haut en 

bas à chaque demande, avec affi- 
chage des lignes-fiches satisfai- 
sant la demande. Un bip sonore 


signale la fin de son travail. Pour 
286 fiches, la durée est de 1,2 
seconde... 

— On peut demander le mot 
exact ou une partie du mot en fai- 
sant suivre d'un astérisque +. 
Exemple : 

Je demande BLOW UP ; il l’a, il 
affiche : 


n° 43 : BLOW UP=SE PLANTER 
Si j'avais demandé BLOW-UP, 


Illustration: Jean-Luc AULNETTE 


pas de réponse. Mais je l'aurais 
eu en demandant BLOW%+. En 
demandant UP*+, il m'aurait affi- 
ché les lignes de BLOW UP, SET 
UP, SUPPLY, etc... Vu ? 

La recherche avec un tronçon de 
mot n’est pas plus lente qu'avec 
le mot intégral. 

— La:correction d’une fiche est 
très rapide. L'ancienne version 
apparaît à l'écran en bleu clair, 
vous écrivez en-dessous en 
jaune. Si l’un des deux mots n'est 
pas à corriger, faire ENTER quand 
le curseur est dessus, il sera 
conservé. 

Il y a encore de nombreux petits 
détails sympathiques, mais étant 
de moindre intérêt, nous en par- 
lerons plus loin. 

Le fichier de l'auteur ne peut 
occuper les pages du ‘'CPC'’, en 
revanche, il sera logeable sur la 
disquette bi-mensuelle commer- 
cialisée par SORACOM. Vous 
pourrez alors le compléter à votre 
guise. 

A présent, analysons un peu le 
listing. 


LE DEPART 


— Lignes 50 à 70, c’est la parade 
habituelle contre le bug AMS- 
TRAD de l'OPENOUT (voir CPC 
n° 3). 

— Le tableau DIM M$(900,1): 
(M$ = mots). Fixé très arbitraire- 
ment à 900, voire 999, il pourra 
par la suite être modifié bien au- 
delà. La colonne O, c’est le mot 
anglais limité à une longueur de 
14 ; la colonne 1, c'est la traduc- 
tion française, chaîne limitée à 21 
caractères. 

— Ligne 250 : SUPER IMPOR- 
TANT ! Ce GOTO 1000 ne va 
servir que pour la première fois 
parce qu'il n’y a pas encore de 
fichier à lire. Dès que le fichier 
ANGLOFRA aura été enregistré 
(même avec quelques mots), il 
faudra effacer cette ligne ou 
intercaler un REM (apostrophe). 
Si vous avez un lecteur de dis- 
quettes, le fichier sera sur la 
même face que le programme, en 
ce cas, vous ajouterez la ligne : 


315 GOTO 400 


— Ligne 350. CALL &BB06 
stoppe le programme jusqu'à ce 
que l’on frappe une touche. 


LE MENU 


Toujours en ligne 1000 (mon 
‘’standard’'), car en cas d’ennui 
il suffit de faire ESC et GOTO 
1000. 

Le nombre de mots NF apparaît 
en haut à droite de l'écran. 

La ligne 1150 et le modèle 
50000 sont de vieilles connais- 
sances. Je rappelle que le module 
50000 (‘’Réponse à un menu’) 
est un sous-programme utilitaire 
enregistré que l’on joint au pro- 
gramme en cours d'écriture par 
MERGE ‘MENU’. 

En ligne 1160, GOSUB vers le 
sous-programme demandé, puis 
retour en 1000, ou fin du pro- 
gramme en 1520. 


RECHERCHE DES MOTS 


En ligne 2000 (option anglais) ou 
2500 (option français) P est le 
numéro de la colonne du tableau 
DIM à explorer. Puis tout le tra- 
vail se fait en GOSUB 3000. 
En haut de l'écran, la fenêtre 
WINDOW #1 sert à rappeler le 
mode d'emploi (l’astérisque et Q 
pour quitter) et à entrer le mot 
M$ à chercher. Celui-ci est mis 
en majuscules, puis on examine 
s'il est terminé par * : en ce cas 
il en est dépouillé et traité en 
3500 à l'aide de la fonction 
INSTR. Si pas d'’astérisque, trai- 
tement par =. Dans les deux cas, 
on vérifie que la longueur autori- 
sée n'est pas dépassée. 

A chaque occurence rencontrée, 
la ligne réponse est affichée à 
l'écran. Scrolling normal lorsque 
l'écran est plein. Un bip sonore, 
CHR$(7) prévient de la fin de la 
recherche de 1 à NF. 


LA MODIFICATION 
(ou correction) 
Ligne 5000 


On met le flag MODIF=1 puis 
renvoi en GOSUB 10000 : ce 
sous-programme est le plus gros 
puisqu'il est commun avec la sai- 
sie de nouveaux mots. 

La fenêtre WINDOW # 1 comporte 
quelques légendes et l’entrée du 
numéro de la fiche à corriger. 
L'ancien contenu apparaît en bleu 
clair, le curseur se place d’abord 
sous le mot anglais que l’on peut 


retaper (en jaune), ENTER ; le cur- 
seur Va ensuite sous le mot fran- 
çais, idem. Généralement, l’un 
des deux mots n’est pas à modi- 
fier, taper alors ENTER pour le 
conserver. 

Si on s’est trompé de numéro de 
fiche (cela arrive... ), on presse 
donc deux fois la touche ENTER 
pour ne rien modifier. || y a un 
CLS après chaque corrrection de 
fiche. 


L'ENTREE DE 
NOUVEAUX MOTS 
(ligne 10000) 


La fenêtre supérieure ne sert qu’à 
légender, ce qui laisse 19 lignes 
pour l'écran de saisie. Lorsque 
celui-ci est rempli, il n’y a pas de 
scrolling mais un CLS ; c'est 
dommage, mais je n'ai pas réussi 
à faire autrement, à cause de ces 
deux LINE INPUT sur la même 
ligne à la suite d’un PRINT 
USING. 

La longueur de chaque mot entré 
est vérifiée ; s’il est trop long, il 
est tronqué. UPPERS le met en 
majuscules. 

SUPER ULTRA IMPORTANT ! Le 
LINE INPUT autorise l'entrée de 
divers signes de ponctuation tels 
que virgule, apostrophe, etc. 
mais n’entrez surtout pas de 
GUILLEMETS ! Il les accepte, tant 
que le fichier est en RAM; 
enregistrez-le et rechargez-le, et 
c'est le désastre à partir du pre- 
mier guillemet (décalage). C'est 
un petit bug AMSTRAD à la lec- 
ture par la commande INPUT # 9. 


LE TRI 
(ligne 7000) 


C'est le banal ‘‘tri à bulle’’ par 
ordre alphabétique des mots 
anglais. Nous avons vu que le 
désordre ne peut ralentir la rec- 
cherche de mots, alors à quoi 
sert-il ? À rendre le listing sur 
imprimante plus présentable : en 
somme un gadget pour un autre 
gadget. En fait, il présente deux 
autres intérêts : le dépistage de 
doubles en examinant le listing. 
Une future et éventuelle exten- 
sion du logiciel qui utilisera la 
‘recherche par dichotomie’’. On 
en parlera en annexe... 

Attention, un tri à bulle est très 
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lent, cela peut faire des dizaines 
de minutes pour quelques centai- 
nes de fiches. 


L'IMPRESSION 
(ligne 8000) 


Vous avez déjà le listing de votre 
fichier de 300 mots, vous venez 
d’en ajouter une quinzaine : il est 
donc pratique que le programme 
vous demande : ‘‘à partir de quel 
numéro ?’’. 

Pour soigner la présentation, le 
numéro est en PRINT USING et 
les mots sont tabulés. Une ligne 
en pointillés rejoint les mots 
anglais et français (fonctionnera 
sous SEIKOSHA-AMSTRAD). 


PETITS CONSEILS DIVERS 
— Pour un verbe anglais, ne met- 


20 ‘Michel Archambault / 
50 OPENOUT"PBIDON" 

60 MEMORY HIMEM-1 

70 CLOSEOUT 


1:CLS 


300 ?’LECTURE FICHIER 
ANGLAIS-FRANCAIS":PEN 1 
TE OÙ DISQUETTE" 


IER MOTS ANGLOFRA, " 
340 PEN 2: 
z une Touche...":PEN 1 


MENT des MOTS 


):NEXT 
420 CLOSEIN 

1000 ?MENU PRINCIPAL 

1010 CLS:INK O,1:INK 1,24 
1020 LOCATE 
EN Z:LOCATE 
1030 LOCATE 
Francais" 
1040 LOCATE 
Anglais" 


b,4:PRINT "A = 


6,6:PRINT "F = 
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10 ?’LEXIQUE ANGLAIS-FRANCAIS / AMSTRAD 
1985 


200 MODE 1:PBORDER Z:INK ?,Z0:PAPER 0O:PEN 
210 DIM M$(900,1):DEFINT A-Z 

250 ?’GOTO 1000:’Liqne a effacer des que 
le fichier mots aura ete enregistre. 

310 CLS:PEN 3:LOCATE 9,4:PRINT "LEXIQUE 
320 LOCATE 3,8:PRINT "PREPAREZ LA CASSET 
330 LOCATE 3,10:PRINT "CONTENANT LE FICH 
LOCATE 10,15:PRINT "puis lape 
35D CALL &BPO6:CLS:PRINT:PRINT " 
.-. .. DPRINI 


400 ,OPENIN "ANGLOFRA" : INPUT#9, NF 
410 FOR I=i TO NF:INPUTH#9,M#(I,0),MS#(I, 1 


1/7 PEN GJ:PRINT ME N U’:P 
29,2:PRINIT NF: mots':PEN ! 
Anglais ---} 


Francais —-; 


tez pas le TO. 

— Entrez les mots au singulier. 
— Si un mot anglais a deux sens, 
inscrivez-les dans le ‘’mot’” fran- 
çais en séparant par un virgule. 
Exemple : 


PAD=BLOC, COMPLETER 


— Où enregistrer le fichier ? 
Magnétophone : sur une cassette 
séparée et en deux endroits : 
compteur = 3 et compteur = 50. 
Lecteur de disquettes : sur la 
même face que le programme + 
sur une disquette de sécurité. 
— En recherche, il est plus sécu- 
risant d'utiliser l’astérisque. 


LA RECHERCHE 
PAR DICHOTOMIE 


Si plus tard le fichier atteint près 
de 2000 mots, chaque recherche 


lexique" 


1060 LOCATE 6,10:PRINT "M = 


a 


1070 LOCATE 6,12:PRINT "E = 


nt" 


1080 LOCATE 6,14:PRINT "T 


ique" 


7000, 8000, 1500 
1170 GOTO 1000 
1500 ?FINAL 


1520 END 
2000 
2010 
2020 GOSUR 3000 
2030 RETURN 

2500 
2510 
2520 GOSUR 3000 
2530 RETURN 

3000 


CHARGE 


1:CLS #1 


LS:PRINT 


+ = 


1050 LOCATE 6,8:PRINT "C = Completer le 


1100 LOCATE 6,16:PRINT "I 
1110 LOCATE 6,2Z0:PRINT "Q 
1150 TEX$="AFCMETIQ" :GOSUR 50000 

1160 ON K GOSUR 2000,2500, 4000, 5000, 6000 


1510 CLS:LOCATE 10,12Z:PRINT "VOUS POUVEZ 
ETEINDRE." :PRINT:PRINT 


? RECHERCHE ANGLAIS--:FRANCAIS 
R$="ANGLAIS" : P=0 


? RECHERCHE FRANCAIS-->ANGLAIS 
R$="FRANCAIS" : P=1 


? RECHERCHE DE TRADUCTION 
3010 WINDOW #1,1,40,1,7:PAPER#1,0:PEN#1, 
3070 WINDOW #0,1,40,8,25:PAPER Z:PEN O:C 


3030 LOCATE#H1I,4,2:PRINT#1,'"Mot suivi de 
contenant ce mot" 


durera près de neuf secondes ! 
Prohibitif ; d’où la méthode par 
dichotomie. Condidition impéra- 
tive : le fichier doit être trié. Soit 
le mot M$ à chercher. On le 
compare à celui du milieu du 
fichier (exemple : le n° 1000). 
Plus grand ou plus petit ? Plus 
grand. On considère donc la 
seconde moitié (1000 à 2000) et 
on compare M$ au mot milieu (n° 
1500). Plus petit on compare 
alors M$ au mot n° 1250, etc. 
Dès que la tranche de localisation 
fait moins de 200 fiches, on pro- 
cède à l'exploration fiche par 
fiche. Vous imaginez le gain en 
vitesse ? 


Modification 


Enregistreme 


Tri alphabet 


Impression" 
Quitter" 


3040 LOCATE #1,2,4:PRINT#1,"Q pour QUITT 
ER:Le BIP=fin du fichier’ 

3050 PEN#1,3:LOCATE #1,3,6:PRINT#1, CHR#( 
16): MC RS: 7: ”: 

3060 LINE INPUT #1,M#$:MS=UPPERS(M#):IF M 
$="Q" THEN 3900 

3080 IF RIGHT$(M$,1)="x" THEN 3500 

3100 IF LEN(MS) >14+Px7 THEN 3050 

3110 FOR I=1 TO NF 

3120 IF M$=MS(I,P) THEN GOSUR 3800 

3130 NEXT:PRINT CHR$(7)::GOT0 3050 

3500 MS=LEFTS (MS, LEN(MS)-1) 

3510 IF LEN(MS) >14+P*x7 THEN 3050 

3520 FOR I=1 TO NF 

3530 IF INSTR(MS(I,P),M$) 
3800 
3540 


0 THEN GOSUR 


NEXT:PRINT CHR#&(7)::GOTO0 3050 

3800 ’AFFICHAGE LIGNE RESULTAT 

3810 PRINT USING "###"3:1::PRINT TAB(5): M 
S1.J):1AB(IS):":":MSCT,1) 

3830 RETURN 

3900 WINDOWKO, 1,40,1,25:PAPER O:PEN 1:CL 
S 

3910 RETURN 

4000 ’COMPLETER LE LEXIQUE 

4010 CLS 

4020 LOCATE 14,4:PRINT 
4030 LOCATE 16,10:PRINT 
$="ON" :GOSUR 50000 

4040 IF K=2 THEN 4060 
4050 N=NF+1:GOSUB 10000:NF=N-1 
4060 RETURN 

5000 ?MODIFICATION 

5010 CLS:LOCATE 14,4:PRINT 


"NOUVEAUX MOTS." 
"D'ACCORD 7°:TEX 


"MODIFICATION 


500 LOCATE 16,.10:PRINT "D’ACCORD 7" 


:TEX 
$="ON" :GOSUB S0000:1F K=Z THEN 5900 
5030 MODIF=1 

5040 GOSUB 10000 

5050 MODIF=0 

5900 RETURN 

4000 ? ENREGISTREMENT 

6010 CLS:LOCATE 2,5:PRINT 
R DISQUETTE OU CASSETTE" 
6020 LOCATE 16,10:PRINT 
$="ON" :GOSUE 50009 

6030 IF K=2 THEN 1000 
6080 OPENQOUT "ANGLOFRA" 
6090 WRITE #9.NF:FOR I=1 TO NF:WRITE #9, 
MSCI,0),M$CI, 1) :NEXT 

6100 CLOSEOUT 

6900 RETURN. 

7000 ?’TRI 

7010 CLS:LOCATE 13,4:PRINT "TRI DU FICH 
IER:":LOCATE 16,11:PRINT "D’'ACCORD ?":TE 
X$="ON" :GOSUB 50000:1IF K=? THEN 7900 
7020 LOCATE 16,21:PRINT "Patience...":T 


"SAUVEGARDE SU 


*D'ACCORD 7'":TEX 


=0 

7060 F=0:FOR J=i TO NF 

7070 IF M$(J,0) >= M$(J-1,0) THEN 7090 
7080 FOR R=O TO 1:M$(0,P)=M$(J,R):M#(J, 
R)=MS(J-1,R):MB(J-1,R)=MS (0, R):NEXT:F=1 
7090 NEXT 

7100 IF F THEN 7060 

7900 RETURN 

8000 ? IMPRESSION 

8010 CLS:LOCATE 5,10:PRINT 
EST-ELLE PREIE 7° 

9020 TEX$="ON":GOSUR SO000:1IF K=£ THEN 9 

900 

8030 CLS:LOCATE 6, 10:INPUT 

QUEL NUMERO 7 ",D$ 

8040 D=VAL(D$):1F D=0 OR D:NF THEN G030 

8050 PRINT #8,CHR$(27): CHR$(64):FOR I=D 
TO NF 

8060 PRINT #B8.USING "#H#H":I::PRINT #6," 
:MSCI. CD): STRINGSCIG-LENCMSCI,0)),,7):7 
"MSI 1} 

8070 NEXT:PRINT #8 

89700 RETURN 

10000 ? SAISIE 

10020 WINDOWKO, 1,40,7,25:PAPER O:PEN 1:C 

LS 

10030 WINDOW#1,1,40,1,5:PAPERKHH, Z:PEN#1, 

J:CLSHI 

10040 LOCATE #1,2,2:PRINT #1,"Pour quitt 

er ( Menu } ——? Q Fr ENTER” 

10050 LOCATE #1,2,4:PRINT #H1,"N':SPC(5): 
"ANGLAIS" :SPC(11);"FRANCAIS" 

10060 L=0 

10070 IF MODIF THEN GOSUR 10500:GOT0 10: 

00 

10100 L=L+1:LOCATE 1,L:PRINT USING 
:N 

10105 LOCATE S,L:LINE INPUT :°,MSCN,0) 
10110 M$S(N.O)=UPPERS(MS(N,0)):1F MSN, 0) 

="Q" THEN 10700 

10120 IF LEN(MS(N,0)) 

EFTHS(MS(N,0),14) 
10130 LOCATE IB,L:LINE INFUT ?:°,MS8CN. 1) 
10140 MH(N,1)=UPPERS(IME(N, 1)):1F LEN(MS( 

N,1)) 521 THEN MSCN, LI=LEFTS(MSON, L),21) 
10150 N=N+1:IF L=19 THEN CLS:L=0 

10160 GOTO 10070 

10200 WINDOWKO, 1,40, 1,25: CLS 

10300 RETURN 

10500 ’FICHE À MODIFIER 

10510 PEN Z:LOCATE 3,1:INPUT "QUEL NUMER 

0 ?7( Q pour Quitter ):",N$:N$=UPPERS (NS) 
10570 IF N$="0" THEN PEN 1:GO0T0 10700 
10530 N=VAL(NS):IF N=0O OR NÈiNE THEN 1051 

(a) 

10540 LOCATE 1,3:PRINT USING "##h":N::PR 
INT TAR(S5):MS(N,0): TAP(19) :MEÎN, 1) 


"L'IMPRIMANTE 


“A PARTIR DE 


LL ### “ 


14 THEN M$(N,0)=L 
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10550 PEN 1 
10560 LOCATE 5,5:LINE INPUT "",M$:MS$=UPP 
ERS(M#) 

10570 IF M$="" THEN 10600 

10580 IF LEN(MS) 14 THEN MS$=LEFTS (M$, 14 
) 

10590 MS(N,0)=M$ 

10600 LOCATE 19,5:LINE INPUT "°,M$:MS$=UP 
PERS (MS) 

10610 IF M$="" THEN 10690 

10620 IF LENCMS) >21 THEN MS=LEFTS(MS,21 
) 

10630 MSCN, 1)=M$ 

10690 CLS:GO0T0 10510 

10700 RETURN 

50000 ’REPONSE 4 UN MENU 

50010 LT=LENC(TEXS):R#$="" 

50020 LOCATE 15-LT,24:PRINT "Reponse (":; 
50030 FOR I=1 TO LT-1 

50040 PRINT MIDS(TEXS,1,1):","::NEXT 
50050 PRINT RIGHTS#(TEX#,1):")":CHR#&(154) 
: CHR$(Z43) ; CHR$ (207) 

50060 TEX$=UPPERS(TEXS) 

50070 WHILE R$="":RS=INKEYS : WEND 

50080 R$=UPPERS (RS) :K=INSTRITEXE, R$) 
50090 IF K=0 THEN R$="":PRINT CHR$(7)3::G 
QTO 50070 
50100 RETURN 


UN EDITEUR 
SE PRESENTE 


ARG INFORMATIQUE 


De gauche à droite : Gilles BERTIN, auteur de COBRA PINBALL (et de 12 autres programmes..), 
direction technique. Marie-François PORTAT, responsable boutique. Martine MORIN, secré- 
tariat, comptabilité. Brigitte DUCHARNE, responsable expéditions et stock. Bertrand BROCARD, 
auteur de MEURTRE À GRANDE VITESSE (et de 15 autres logiciels), direction générale, ani- 
mation des unités de création. Le flipper. qui a servi à étudier les réactions de la balle pour 
COBRA PINBALL... Jean BOIVIN, responsable commercial. 
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Nous vous avons déjà présenté 
deux éditeurs de logiciels. Sans 


eux vous n'auriez sans doute pas 


la possibilité de jouer avec votre 
‘’machine’’ ou de travailler avec, 
voire de commercialiser vos pro- 
pres programmes. 

ARG Informatique édite des logi- 
ciels depuis 1983, mais c’est en 
1984 qu'a lieu le ‘‘boom'’ avec 
la collection de marque Cobra 
Soft touchant THOMSON et sur- 
tout ORIC. 

Ce n'est donc pas un hasard si 
Cobra Soft est devenu l’un des 
plus importants éditeurs de logi- 
ciels pour AMSTRAD ! Cette 
marque a été fondée par deux 
des programmeurs déjà au cœur 
de la société : Bertrand BRO- 
CARD et Gilles BERTIN ! Ils furent 
immédiatement enthousiasmés 
par cette nouvelle machine 
croyant, dès la première utilisa- 
tion, en son brillant avenir, alors 
que d’autres pensaient MSX ou 
ALICE 

Aussi, la collection AMSTRAD 
s'est elle enrichie de 13 nou- 
veaux titres dès le début 1985, 
parmi lesquels les adaptations de 
Cobra Pinball, de Meurtre à 
Grande Vitesse. Depuis, la mise 
est triplée avec 38 titres couvrant 
toutes les applications de la 
micro-informatique familiale. 
Didacticiels (français, histoire, 
mathématiques), gestion, utilitai- 
res, logiciels d'intérêt personnel 
(biorythme, astrologie, grapholo- 
gie), jeux de réflexion et super 
productions, désormais, l'ensem- 
ble de la collection est disponible 
sur disquettes. La société a 
décidé de modifier sa politique 
d'édition. En effet, il est souvent 
difficile d'écrire seul un bon pro- 
gramme. Aussi a-t-elle mis en 
place des unités de création 
regroupant des programmeurs, 
des graphistes, des musiciens et 
des auteurs, en leur donnant les 
moyens de travailler et en leur 
fournissant matériels et outils de 
développement. 

Une bonne idée qui devrait plaire 
à tous les concepteurs potentiels. 


MA 


G. MANKOWSKI 


ZQ ?’* MAZE # 
38 ?* pour # 
40 + AMSTRAD CPC 4684 # 
50 ?* par # 
60 ** G. MANKOWSKI * 
70 ?’* mai 1985 # 
BA? HIDE RIDE RENE JEU DE HE DE DEEE DEEE 
90 MODE 1 


ous êtes enfermé dans un 
labyrinthe de 10 étages, dont 
vous devez sortir au plus vite. La 


100 DEFINT A-Z 
11@ CLS:LOCATE 1,10:PRINT "Jouez-vous su 


porte de sortie est fermée par 3 7" " e e > eus ecran monochrome ou couleur (M/C) 
CAUeLIRS CoMendeE pertes eee 12Q R$=UPPERS(INKEYS):1IF R$="M" THEN 140 
rangées dans des coffres répar- $ & © © EE ECC dE Rae EN 

tis sur chacun des dix étages. EE |: ls 1£ 

Vous avez deviné ? Votre travail $ & OO EE IQ IR RSC" THEN ASS — 
consiste à retrouver les 3 clés, 1° BORDER 1:INK G,1i:INK 1,24:INK Z,15:1 
mais chaque coffre n’en contient à $ © © EH M :K 3,85 

pas forcément une ! Pour ouvrir Em :°0 "nr: 

les coffres, il faut d’abord trou- 6 $ @ @) EE 160 cad té 

ver la combinaison de 5 lettres. SE 170 ’+++* caracteres redefinis *x# 

Pour corser le tout, vous êtes $ & OO 180 RRRRRREREEREEEEREEÉEEERÉRÉEE 
poursuivi par des fantômes mali- BH M 190 SYMPOL AFTER 220 

cieux, qui vous subtilisent les clés 6 $& @) 1@ BR :02 SYMPOL 244,7:8,78,9,62,92,28,20.:0 
pour les remettre à leur place, um “2 SYMBOL 245,24,24,255,176, 60, 60, 36, 38 
dans les coffres. Le reste de la "2 & @ 1@ 2:20 SYMEOL 246,1246,129,189,165,165,189,1 
règle du jeu est énoncé par le pro- == 29,126 

gramme. A vos claviers ! à | à @ @ BE :39 symo 247.31,17,31,4,4,60,17, 60 
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240 SYMEOL 248,0,255,84,84,84, 84, 255,0 
250 SYMBOL 249,255,195,195,195,195,195,1 
95,255 

260 SYMBOL 250.56,68,148,164,169,146,68, 


270 SYMBOL 251,28,34,73,149,37,41,34,28 
280 SYMPOL 252,56,68, 146,169, 164,148,68, 


290 SYMPBOL 253,28,34,41,37,149,73,34,28 
300 SYMROL 221,255,0,255.0,255,0,235,0 
310 SYMBOL 222,255,0,63,0,15,0,3,0 

320 SYMBOL 223,0,0,3,0,15,0.63,0 

330 SYMROL 224,255,0,252,0,240.0,192,0 
340 SYMPOL 225,0,0,192,0,:40.0,:52,0 
350 SYMPOL 226,0,1,3,1,1,1,0,0 

360 SYMPOL 227,0,119.,85,117,85,119,0,0 
370 SYMBOL 228.0,119,69,117,21,119,0,0 
380 SYMEOL 229,0,119,21,117,69,119,0.,0 
390 SYMEOL 230,0,119,85,117,21,119,0,0 
400 SYMBOL 231,0,119,69,117,85,119,0,0@ 
410 SYMPOL 232,0.119,21,117,21,119,0,0 
420 SYMPOL 233,255,255,192,253,253,9, 2535 
5235 

430 GOSUR 431G0:REM *#*#*x instructions *#+ 
440 CLS:PEN 1 

45Q LOCATE 1,10:PRINT "Le niveau de diff 
iculte choisi(i,2 ou 3)" 

46@ LOCATE 1,12:PRINT “determine le nomb 
re de coffres(5,4 ou 3)" 
47Q LOCATE 1,14:PRINT * 
ront une clef" 

48Q LOCATE 1,18:INPUT * 
otre choix"s;nidi 


qui contiend 


Quel est v 


490 IF nidi=i OR nidi=Z OR nidi=3 THEN 5 


00 ELSE 480 

500 GOSUR 5390 

510 ORIGIN @,G:CLS 

5:Q WINDOW #1,1,25,1,25 

530 WINDOW #2,27,27,15,25 

540 WINDOW #3,27,40,4,7 

550 WINDOW #4,27,40,1,3 

560 WINDOW #5,27,40,9,14 

570 WINDOW #7,29,39,15,24 

580 DIM L$(5):DIM FX(5):DIM FY(3) 

590 DIM co'(73):DIM si!(743) 

600 DEG:FOR i=0 TO 7£ 

610 co!'(i)=COS(5+#i) 

620 si!'(i)=SIN(5+i) 

630 NEXT i 

64Q INK @,@:PORDER DG:PAPER Q 

650 IF R$="M" THEN 670 

660 INK 3,3:INK 1,9:G0T0 680 

67Q INK 3,9:INK 1,24 

680 PAPER #4,3:CLS H4:PEN 1:LOCATE #4,%, 

2ePRINT #4, CHR$S(250) ; CHR$ (251) ; "MESSAGES 

“sCHRS(Z52) ; CHR$ (259) 

690 PAPER #3,3:CLS #3:PRINTHS: PRINT #3," 
VEUILLEZ PATIENTER" 

700 xx=2:yy=2:xxp=#iuup=2: fois=Qietsor=I 


NT(1B@xRND+1) 

710 RANDOMIZE TIME:n=INT(IDxRND+1) 

720 ? RH HHHHEUEONEHEIE DEEE DE DE DE DE DE DE HD DEEE JE JE 

73Q *’*+* generation labyrinthes *+* 

780 ? HUMEUR EDEN TETE DE DEEE DD REED EE EX 

750 DIM R(5,6,6):DIM S(Z,7,7):RANDOMIZE 
TIME 

760 FOR m=i TO 5 

770 FOR i=@ TOS 

78Q FOR j=Q TO 5 

790 Rim,i, j)=INT(1UxRND+1) 

800 NEXT j:NEXT i:NEXT m 

810 FOR m=i TO Z 

820 FOR i=0 TO & 

830 FOR j=0 TO 6 

840 S(m.i,j)=INT(1BxRND+1) 

850 IF Sim,0,j):5 THEN 840 

86@ NEXT j:NEXT i:NEXT m 

07@ ? HE JDE DE HE DE DE HE DE DEEE JEU DEEE 

88Q ’*+* coordonnees escaliers *+* 

290 ? HR DER DE DE DE DE JDE DE DE DE DE DE JDE DE JEDE DE TEE 

90Q DIM EX(15):DIM EY(15):RANDOMIZE TIME 
910 FOR i=1 TO 15 

920 EX(i)=2#(INT(ID#RND+2Z)):EV(i)=Z#xCINT 
(1BxRND+£) ) 

930 FOR j=0 TO i-1:1F ABS(EX(i)-EX(;))<3 
AND ARS(EY(i)-EY(j))€3 THEN 920 

94@ NEXT j 

95@ NEXT i 

DED ? HR HEUNHEMUEIEDEUE DEN DE DE DE DEEE DE HE JE DE JE HE 

97Q ’*+*+* coordonnees coffre +++ 

98Q ? HUE HEURE MEURT MEN EDEN EEE 

990 DIM cox(1@):DIM cout(1@):RANDOMIZE TI 


1000 FOR i=i TO 10 

1010 cox(i)=2*(INT(IZ#RND+1)) scou(i)=2x( 
INT(1Z#RND+1)) 

1070 IF cox(i)=4 AND cou(i)=2 THEN 1010 
1030 FOR j=i TO 15 

1040 IF couti)£:EY(;j) THEN 1069 

1050 IF cox(i)=EX(j) OR cox(i)=EX(j)+E T 
HEN 1010 

1068 NEXT j:NEXT i 

1070 GOSUR 37Z20:REM *** coordonnees letli 
re code *x*+# 

1089 DIM cle(1@):FOR i=1 TQ 6-nidi 

1090 j=INT(1GxRND+1) 

1100 IF cle(j)=Q THEN cle(j)=1i ELSE 1090 
111Q NEXT 

11:Q CLS #3 

1130 PAPER #5,@:CLS #5:PEN 1:FOR i=i TO 
S:LOCATE #5,1,i:PRINT #5,CHR$ (221) :LOCAT 
E #5,14,1:PRINT #5, CHR$(22%1):NEXT 

1140 LOCATE #5,2,1:PRINT #5,"RECORD:":LO 
CATE #5,2,3:PRINT #3,"TEMPS:":LOCATE #5. 
2,5:PRINT #5,"CLEFS:" 

1150 LOCATE #5,9,1:1F record=@ THEN PRIN 
T#5,"----- " ELSE PRINT#S,USING'"'#h#h##h#"sre 


40 


1160 ?HRKHHRÉERAIREREREREEREX 

1170 ‘*** choix couleurs *#*#+# 

1180 ? HIHI URI EEE EEE 

1190 CLS#J3:CLS #1:IF R$="M" THEN 1370 
1200 cn=n MOD 4 

1210 ck=-13#(cn=0)-9#x(cn=1)-1@x(cen=2)-17 
#(cn=3) 

1220 BORDER ck:INK @,ck 

1230 ON n GOTO 1240,1250,1260,1:70, 1280, 
1290, 1300,1310,1320,1330 

1240 INK 1,0:INK 2,4:INK 3,13:GOT0 1370 
1250 INK 1,0:INK 2,4:INK 3,13:GO0OT0 1370 
1260 INK 1,0:INK Z,4:INK 3,15:G0T0 1370 
1270 INK 1,0:INK 2,4:INK 3,16:GO0T0 1370 


1280 INK 1,93:INK 2,1:INK 3,@:GO0TO 1370 
1290 INK 1,3:INK 2,0U:INK 3,12Z2:G0T0 1370 
1300 INK 1,3:INK 2,@:INK 3,9:GOTO0 1370 
1310 INK 1,1:INK 2,4:INK 3,11:GOT0 1370 


1320 INK 1,1:INK 2,4:INK 3,13:GOT0 1370 
1330 INK 1,1:INK 2,1Z:INK 3,4:GOT0 1370 
1340 7 HIER 

1350 ’*+*# choix du code ** 

1300 ? RHIN EUEUEUEE 

1370 RANDOMIZE TIME:z=INT(5@#RND) : RESTOR 

E 6120 

1380 FOR i=-4 TO 5#(z-1):READ v:NEXT i 
139Q READ ui,u2,ugJ,u4.,us 

1400 code$=CHR$(ui)+CHR$(u2)+CHR$(u3)+CH 

R$(u4)+CHR$(uS) 

1410 code$=LOWERS$ (code) 

1420 FOR L=i TO S:L$(1)=MID$(codef,L,1): 
NEXT L 

1430 xx=xx+2 

1440 ’+*+*x# indicateur d’etage *** 

145Q FOR b=1 TO 1G:LOCATE #2,1,Db:PRINT # 
2,CHR$(Z49):NEXT b 

1460 LOCATE #2,1,11-np:PRINT #2, CHR$(249 
) 

147Q LOCATE #Z,1,11-n:PRINT #2, CHR$(145) 
1480 np=n 

1400 ?HEHRÉMÉIRRURIMURUNRUEUNE 

1500 ’**x*x horloge **# 

1510 ? HAUTE E 

1520 DI:PEN 3:PAPER #7,2:CLS #H7:LOCATE # 
7,5,1:PRINT #7,CHR$ (226) ; CHR$ (227) :LOCAT 

E #7,1,3:PRINT #7, CHR$ (226) ; CHR$ (228) :LO 
CATE #7,10,3:PRINT #7, CHR$(23%) 

1530 LOCATE H#7,1,8:PRINT #7,CHR$(2Z26) ; CH 
R$(229):LOCATE #7,10,8:PRINT #7,CHR$(231 
):LOCATE #7,6,10:PRINT #7, CHR$(230) 

1540 ORIGIN 536,96 

1550 MOVE 62+*co!(0),62*xsi!(@):FOR i=1 TO 
72:DRAW 6Z#co!(i),62*xsi!(i)s:NEXT i 

1560 MOVE 52*co'(0),52xsi!(@):FOR i=i TO 
72:DRAW S2#co!'(i),532xsi!(i):NEXT i 

1570 FOR t=30 TO 330 STEP 6@:MOVE 52*C0S 
(t),5Z2XSIN(t):DRAW 62*COS(t),62XxSIN(T):N 


EXT t:O0RIGIN Q,0:EI 
1580 ? HR HUHUEHMEUEEUENEE DE JE NE DE HE DEN DE DEEE 


1590 ’* construction labyrinthe * 
1600 ?#HHHHMHHMEHMHEHN ENNEMI HE HE HE HE DE HE HE HE JE HE JE 


1610 CLS #1 

1670 DI:FOR i=@ TO 8 STEP 2:MOVE i,0:DRA 
WR 0,398:MOVE 398-i,0:DRAWR Q,J398:MOVE 0 
:1:DRAUWR 398,G:MOVE 0O,398-i:DRAWR 398,0: 
NEXT:EI 

1630 PEN 1:FOR i=3 TO 23 STEP * 

1640 FÜR j=3 TO 23 STEP Z 

1650 LOCATE i,j:PRINT CHR$(144) 
166@ NEXT j:NEXT i 


‘1670 kH=-(n=i OR n=6)-Z#(n=2 OR n=7)-3#(n 


=3 OR n=8)-4*%(n=4 OR n=9)-5+x(n=5 OR n=10 
) 

1680 FOR i=0 TO 5 

1698 FOR j=0 TO 5 

1700 :=16*(22-4#i)+7 

1710 u=16#(22-4#;j)+7 

17:20 ON R(K,i,j) GOSUR 2920,2930,:940.29 
50,2960,2970,2980,2:990,3000,3010 

1730 NEXT j:NEXT :i 

174Q H=-(n}@)-(n:5) 

1750 FOR i=0 TO 6 

1760 FOR j=0 TO & 

1770 x=16*x(24-4#1)+7 

1780 y=16*x(24-4%;)+7 

1790 ON S(k,i,j) GOSUR 2920,2930,2:940.2x9 
50,29460,2970,2980,2990,3000,3010 

1800 NEXT j:NEXT i 

1810 ON np GOSUR 3410,3420,3490, 3440, 345 
0,3460, 3470. 3480, 3490. 3500 

18:20 GOSUR 3510 

1830 PEN 1:LOCATE cox(n),couy(n):PRINT CH 
R$(246) 

1940 PEN 3:FOR j=i TO S:LOCATE codexi(n, j 
),codeut(n, j):PRINT CHR$(164):NEXT j 

1850 IF n=etsor THEN fois=foist+i ELSE 19 
10 

1860 IF fois=i THEN GOSUR 3979 

1870 PEN 1:LOCATE #i,xsor.usor:PRINT #1, 
CHR$(233) 

1890 ? HUE DE HER DE DE DE DE DE DEEE 

1890 ’+*+* coordonnees fantomes +*+# 

1900 ? HIER NEEUEHEDE DER RE DE DE DEN DE DE DE DEEE 

1910 RANDOMIZE TIME 

1920 FX(1)=Z2%XINT(9#RND+4) :FY(1)=2 

1930 IF FX(1)=cox(n) THEN 1920 

1940 FOR j=1 TO 5:1F FX(1)=codex(n, j) TH 
EN 1920 ELSE NEXT j 

1950 FX(Z)=2:FY(2)=Z#INT(IOxRND+Z) 

1960 IF FY(Z)=coy(n) THEN 1950 

197Q FOR j=1 TO 5:1F FY(Z)=codeu(n, j) TH 
EN 1950 ELSE NEXT j 

1980 FX(3)=24:FY(3)=Z2#INT(10xRND+Z) 

1990 IF FY(3)=cou(n) THEN 1980 

2009 FOR j=i TO 5:IF FY(J)=codey(n, j) TH 
EN 1980 ELSE NEXT j 


2010 FX(4)=2#INT(1Z2#RND+1):FY(4)=#4 

Z020 IF FX(4)=cox(n) THEN 2010 

2030 FOR j=1 TO 5:1F FX(4)=codex(n, j) TH 

EN 2010 ELSE NEXT j 

2040 FX(5)=2#INT(IZ#RND+1) :FY(5)=24 

2050 IF FX(5)=cox(n) OR FX(5)=FX(4) THEN 
2040 

Z060@ FOR j=1 TO 5:1F FX(5)=codex(n, j) TH 

EN 2040 EiSE NEXT j 

Z07Q PEN 2:FOR k=1i TO S:LOCATE FX(K),FY( 
K)2PRINT CHR$(245):NEXT k 

2080 pause=1:EVERY 50,2 GOSUR 2830 

2090 EVERY 100.1 GOSUR 2530 

Z100 sO=INT(TIME/300):te=0:pause=0:tepet 

o=0 

LAON DEEE DIE DE IDE DE DER DE DE DEEE DEEE 

2120 DI:PEN 1 

Z130 LOCATE xxp,yup:PRINT CHR$(128) 

2140 SOUND 1,150,5,5 

Z150 LOCATE xx,uy:PRINT CHR$(244) 

Z160 xxp=xx:uuyp=uu:EI 

2170 xc=16#(xx-1)+7:uc=16#(25-uu)+7 

2180 IF pause=i THEN n=INT(I1GxRND+1):xx= 
xx—2:temps=temps+180:LOCATE #5,8,3:PRINT 
#5, USING "H#HHH#" ; temps:GOTO 1190 

2190 cH=INKEYS:1IF c$="" THEN =190 

2200 IF c$="P" OR c$="p" THEN GOSUR 3570 
2210 c=ASC(c#) 

2220 IF c<240 OR c:243 THEN 2190 

2230 cc=c-239 

2240 t=TEST(xc+ié#(ce=3)-16#(cc=4) ,yc-16 
#(cc=1)+16#(cc=2)) 

2250 IF t=1 THEN 2190 


2260 xt=xc-8x(cc=1)-8*%(cc=2)+24#(cc=3)-4 


Bx(cc=4) 

2270 ti=TEST(xt,uc-40*x(cc=1)+24x(cc=2)-8 
#(cc=3)-B8*x(cc=4)) 

2280 t2=TEST(xt,uc-38*x(cc=1)+26%(cc=2)-6 
*(cc=J3)-6#(cc=4)) 

2290 tI=TEST(xt,yc-Jéx(cc=1)+2#8%(cc=£)-4 
x(cc=J3)-4#(cc=4)) 

2300 tt=ti+2xt2+3xts 

2310 IF tt=2 THEN 3050 

2320 IF tt=5 THEN GOTO 4060 

2330 IF tt=18 THEN GOTO 4170 

2340 IF tt=6 THEN GOTO 2190 

29350 IF tt=3 AND nbcle=3 THEN GOTO 5460 

2360 IF tt=3 AND nbclef3 THEN GOTO 1:09 

2370 FOR i=0 TO 4 STEP 

2380 t4=TEST(xc-(2+i1)#(cc=1)-(2+1)x(cc= 
)+(26+i)#(cc=3)-(32+1)#(cc=4) ,yc-36*(ccz= 
1)+28*(cc=2)-4x(cc=3)-4#(cc=4)) 

2390 IF t4:Q THEN 2410 

2400 NEXT i:GOTO 2460 

2410 xxs=xx-2#(cc=4)+2#(cc=3) 

24720 yys=yyt+2+*(cc=1)-2#(cc=*) 

2430 FOR i=1 TO 5 

2440 IF (codex(n.i)=xxs) AND (codey{(n,i) 
=yys) THEN 2480 


oo 


42 


245Q NEXT i 

2460 yu=uyt+?2+(cc=1)-2#(cc=2) 

2470 xux=xx+2#(cc=3)-2#(cc=4):GOTO 2120 
2480 PEN Z:LOCATE xxs,uyys:PRINT MID$(cod 
e$.i,1) 

Zz490 GOTO 2120 

2500 ?#HHHHHUMUUEUEUEUEUEUEUNEOUEUEUEUEUE EEE 

2510 ‘’** deplacement fantome ** 

ZSEQ 7 HUE HE DE JEDEE DE JE DEEE JE 

2530 DI:IF pause=i OR pause=2 THEN 2790 
2540 FOR I=i TO 5:A=INT(4xRND+1) 

2550 xf=16x(FX(1)-1)+7i:uf=16%#(25-FYV(I))+ 
7 

2560 PEN Z:ON À GOTO :570,2610,2:650,:690 
2370 IF TEST(xf-20,uf)=1 THEN 780 

25680 IF TEST(xf-Z4,uf+4)=1 AND TEST(xf-Z 
&4,uf+6)=Q THEN 2730 

2590 IF TEST(xf-Z24,uf+6)+TEST(xf-26,uf+4 
)+TEST(xf-28.uf+4)+TEST(xf-30,uf+4)5>0 TH 
EN 2780 

2600 LOCATE FX(1),FY(I) :PRINT CHR$(128) 
:FX(1)=FX(1)-2:SOUND 1,602,5,5:LOCATE FX 
(I),FY(I):PRINT CHR$(245):GOT0 2780 

2610 IF TEST(xf+2:0,uf)=1 THEN 2780 

2620 IF TEST(xf+40,uf+4)=1 AND TEST(xf+4 
G,uf+6)=Q THEN 2730 

2630 IF TEST(xf+40,uf+6)+TEST(xf+32,uf+4 
)+TEST(xf+34,uf+4)+TEST(xf+36,uf+4)50 TH 
EN 2780 

264Q LOCATE FX(1),FY(I) :PRINT CHR$(128) 
:FXCI1)=FX(1)+2:SOUND 1,602,5,5:LOCATE FX 
(I),FY(I):PRINT CHR#(Z45):GOTO0 2780 

2650 IF TEST(xf,uf+20)=1 THEN 2780 

2660 IF TEST(xf+8,uf+36)=1 AND TEST(xf+8 
suf+38)=0 THEN 2730 

2670 IF TEST(x:f+8,uf+589)+TEST(xf+2,uf+38 
)+TEST(xf+4,uf+36)+TEST(xf+6,uf+36)50 TH 
EN 2780 

2680 LOCATE FX(I1),FY(I) :PRINT CHR$(128) 
sFYCI)=FY(I)-2: SOUND 1,60%,5,5:LOCATE FX 
(I),FY(I):PRINT CHR$(:45):GOT0 2780@ 

2690 IF TEST(#“f,.uf-20)=1 THEN 2780 

2700 IF TEST(“f+8.uyf-28)=1 AND TEST(xf+8 
syf-26)=0 THEN 2730 

2710 IF TEST(xf+8,uf-26)+TEST(xf+Z,uf-£9 
)+TEST(xf+4,uf-28)+TEST(xf+6,uf-28);0 TH 
EN :789 

2720 LOCATE FX(I),FY(I) :PRINT CHR#(1:8) 
:FYCI)=FY(I)+2: SOUND 1,602,5,5:LOCATE FX 
(I),FYCI):PRINT CHR$(Z45):GOTO0 2780 

2730 IF nbcle=0 THEN 2780 

274@ LOCATE #5,nbcle+8,5:PRINT #5,CHR$#(1 
28) :nbcle=nbcle-i 

2750 GOSUR 5800:CLS #3:PRINT #3,"1 cle d 
e moins" 

2760 ce=INT(IOxRND+1) 

2770 IF cle(ce)=1 THEN 2760 ELSE cle(ce) 
={ 

2780 NEXT I 


2790 EI:RETURN 
2800 ? HART DEEE DETTE EEE 


2810 ‘+*+** mouvement horloge *x* 
2820 ? HIER DEIEIE DEN JE DE DE DE DEEE DEEE 


2830 IF pause=1 THEN 2870 } 
‘ 


2840 DEG:te=te+z 

2850 IF te‘360 THEN 2870 
2860 pause=1i:te=0 

2870 MOVE 536,96:DRAWR SZ#SIN(te),52*xC0S 
(te) 

Z88Q RETURN 

2890 ? HER ENTER DEEE DE DE HE DE DE DE HE DEEE DE 

2900 ‘’* construction laburinthe * 

ZOO? HAITI DE DE DER JE DE DEF JDE DE DEEE DEEE 

2920 MOVE %X,y:DRAWR 32,U:MOVE x,y+:DRAW 
R 32,@:RETURN 

2930 MOVE x,u:DRAWR 32,@:MOVE x,u+2:DRAW 
R 32,0:MOVE x,u:DRAWR -32,Q:MOVE x, u+:D 
RAWR -32, 0: RETURN 

2940 MOVE x,y:DRAWR 32,0:MOVE x, y+2:DRAW 
R 32,0:MOVE x,uy:DRAWR G,3Z2:MOVE x+Z,u:DR 
AUR 0,32:RETURN 

2950 MOVE x,y:DRAWR 3*,G:MOVE x,u+2:DRAW 
R 32,0:MOVE x,u:DRAWR @,-32:MOVE x+2,u:D 
RAWR G,-32:RETURN 

2960 MOVE x,y:DRAWR -32,0:MOVE x,u+2:DRA 
WR -32,0:RETURN 

297Q MOVE x,u:DRAWR -32,B:MOVE x,y+z:DRA 
WR -32,0:MOVE x,u:DRAWR 0,32:MOVE x+2,u: 
DRAWR 0,32: RETURN 

2980 MOVE x,uy:DRAWR -32,@:MOVE x,uy+2:DRA 
WR -3Z,0:MOVE x,u:DRAWR G,-32:MOVE x+£,u 
:DRAWR 0,-32:RETURN 

2990 MOVE x,u:DRAUWR Q.3Z:MOVE x+2,u:DRAW 
R Q,32:RETURN 

3000 MOVE Xx,u:DRAWR G,32:MOVE x+2,u:DRAW 
R @,432:MOVE x,y:DRAWR G,-32:MOVE x+2,u:D 
RAWR G.-323:RETURN 

3010 MOVE x,u:DRAWR @,-32:MOVE x+2,u3DRA 
WR Q,-32:RETURN 

3020 ? HIER 

3030 *’++* saut d’etage *** 

3040 ? HEURE EUEX 

3050 uy=yu+=+(cce=1)-2*x(cc=2) 

3060 xx=xx+2#(cc=3)-2#(cc=4) 

3070 pause=i:te=Q:si=INT(TIME/500) : temps 
=temps+si-s0+tepeto:LOCATE #5,8,93: PRINT 

#5,USING "H#HH#R#" 5; temps 

3080 ON n GOTO 3090,3120,3150,3180,3210, 
3240,3270,3300.3330,3360 

3090 IF xx=EX(1) AND yy=EY(1) THEN n=2:G 
OTO 1170 

3100 IF xx=EX(2) AND yy=EY(2) THEN n=3:G 
OTO 1170 

3110 IF xx=EX(3) AND yuy=EY(3) THEN n=#4:G 
OTO 1170 

3120 IF xx=EX(1) AND yy=EY(1) THEN n=1:G 
OTO 1170 

3130 IF xx=EX(4) AND yy=EY(4) THEN n=3:G 


OTO 1170 
3140 IF xx#=EX(5) AND yy=EY(5) THEN n=5:G 
OTO 1170 
3150 IF xx=EX(6) AND uy=EY(6) THEN n=4:G 
OTO 1170 
3160 IF xx=EX(2) AND yu=EY(Z) THEN n=i:G 
OTO 1170 

3170 IF x2=EX(4) AND uy=EY(4) THEN n=2:G 
OTO 1170 

31890 IF x“x=EX(6) AND uy=EY(6) THEN n=3:G 
OTO 1170 

3190 IF xx#=EX(8) AND uyy=EY(8) THEN n=10: 
GOTO 1170 

200 IF xx=EX(3) AND uyy=EY(3) THEN n=1:G 
OTO 1170 

3210 IF x#=EX(7) AND uy=EY(7) THEN n=é:G 
OTO 1170 

220 IF xx=EX(11) AND uy=EY(11) THEN n=8 
:GO0TO 1170 

3230 IF xx=EX(5) AND yy=EY(5) THEN n=2:G 
OTO 1170 : 

3240 IF x1=EX(9) AND uu=EY(9) THEN n=8:G 
OTO 1170 

3250 IF xx4=EX(7) AND uy=EY(7) THEN n=5:G 
OTO 1170 

3260 IF xx=EX(13) AND yy=EY(13) THEN n=9 
:GOTO 1170 

3270 IF xx=EX(10) AND uy=EY(1@) THEN n=i 
@:GOTO 1170 

3280 IF “#x#=EX(14) AND uy=EY(14) THEN n=8 
:GOTO 1170 

3290 IF xx=EX(15) AND uy=EY(135) THEN n=9 
:GOTO0 1170 

3300 IF xx=EX(9) AND uy=EY(9) THEN n=6:G 
OTO 1170 

3310 IF xx=EX(11) AND uy=EY(11) THEN n=35 
:GOTO 1170 

33520 IF xx=EX(14) AND yy=EY(14) THEN n=7 
:GO0TO 1170 

3330 IF xx=EX(1Z) AND uy=EY(1%) THEN n=i 
G:GOTO 1170 

3340Q IF xx=EX(13) AND uy=EY(13) THEN n=6 
:GOTO 1170 

3350 IF xx=EX(15) AND uy=EY(13) THEN n=7 
:GO0TO 1170 

3360 IF xx=EX(8) AND yu=EY(8) THEN n=4:G 
OTO 1170 

3370 IF xx=EX(10) AND uy=EY(1@) THEN n=7 
:GOTO 1170 

3380 IF xx=EX(12Z) AND uu=EY(1*) THEN n=9 
:GO0TO 1170 

3390 GOTO 1170 
3400 ? HEIN TENUE EEE 

3410 P1=EX(1):PZ=EY(1):P3=EX(2) : P4=EY(2) 


. 1P5S=EX (3) :P6=EY (3) : RETURN 


J420Q P1=EX(1):PZ=EY(1):P3=<EX(4):P4=EY(4) 
: P5=EX (5) : P6<EY (5 ) : RETURN 
3430 PI=EX(6):PZ=EV(6):P3=EX(4):P4=EY(4) 
3 P5=EX (2) : PG=<EY (2) : RETURN 


344Q P1=EX(46) :P2=EY(6) : P3=EX(8) : P4=EY(8) 
2 PS=EX (3) : P6=EY (3) : RETURN 

3450 PI1=EX(7):PZ=EV(7) :PI=EX(11):P4=EY(1 
1):PS=<EX (5) : P6=EY (5) : RETURN 

346Q P1=EX(7):P2=EY(7) :PI=<EX(193) : P4=EY(1 
3) :P5=EX(9):P6=EY(9) : RETURN 

347Q P1=EX(10) : PZ=EY (10) : PI=EX(14):P4=EY 
(14):P5=EX(15) : P6=EY (15) : RETURN 

3480 P1=EX(11):PZ=EY(11):PI=EX (14) : P4=EY 
(14) :PS=EX(9):P6=EY(9) : RETURN 

3490 P1=EX(12) :P2=EY (12) : P3=<EX (19) : P4=EY 
(13) :P5=EX (15) : P6=EY (15) : RETURN 

3500 P1=EX(12) :P2=EY (1%) : PI=EX (10) : P4=EY 
(10): P5=EX (8) : P6=EY(8) : RETURN 

3510 PEN 1:LOCATE P1,PZ:PRINT CHR$(248);: 
CHR$(128) :LOCATE P3,P4: PRINT CHR$(:48) ;C 
HR$ (128) :LOCATE PS,P6: PRINT CHR$(248) ; CH 
R£(128) 

3520 DI:MOVE 16%P1+7,16#(2b6-P2)+7:DRAUWR 
—32,0:DRAWR 0,-32:DRAWR 3*,B: MOVE 16*xP5+ 
7,16k(26-P4)+7:DRAWR -32,@:DRAUWR @,-3=%D 
RAWR 32,0:MOVE 16*P5+7,16*x(26-P6)+7:DRAW 
R —-32,0:DRAWR @,-3Z:DRAWR 327,0 

3530 MOVE 16%P1+8,16#(26-P£)+8:DRAUR —-3i 
.0:DRAUR G,-32:DRAUR J31,G:MOVE 16*xP3+8, 1 
bx(Z6-P4)+8:DRAWR -31,@:DRAWR @,-32:DRAUW 
R 31,G:MOVE 16%P5+8,16%(26-P6)+8:DRAUR - 
J1,0:DRAUR 0,-3Z:DRAWR 31,G:EI : RETURN 
3540 ? HAINE 

3550 ’+*Xx percage **# 

3560 ? HIHI IEEE E 

3570 GOSUR 5760: CLSH#3: PRINT #3," indique 
r la direction de percage" 

3580 cH$=INKEVS:1IF c$="" THEN 3580 


3590 c= ASC(cH):IF cZ40 OR c:243 THEN 3 


3600 IF TEST (xc+20x(c=242)-20*x(c=245),u 
c+z0*(c=241)-20*x(c=240))=1 THEN 3680 
3610 tepe=INT(16#RND+5):te=te+Z+xtepe:tep 
eto=tepetottepe 

3620 GOSUR 5760: CLS#3: PRINTHI," duree 
de percage: "stepe:"sec." 

3630 ON c-239 GÔTO 3640, 3650, 3660,3670 


3640 LOCATE xx,uy-1:PRINT CHR$(128) :RETU” 


3650 LÔOCATE xx,uu+i:PRINT CHR$(12Z8) :RETU 
366Q LOCATE xx-1,uu:PRINT CHR$(128) :RETU 
J67@ LOCATE xx+1,uuy:PRINT CHR$(128):RETU 


3680 GOSUR 5760: CLSH3: PRINT#HA," perca 
ge impossible":RETURN 

36090 ?HEHHEHHN EEE HE EEE DEEE EE DEEE EEE 

3708 ** coordonnees lettre code * 

3710 ? HAE DE DER DE DEEE JE DEEE DE EEE 

37:00 DIM codex(10.5):DIM codeu(1@.35) 
3730 FOR i=i TO 10 

3740 FOR j=1 TO 5 

3750 codex(i,j)=2x(INT(1Z#RND+1) ):codeu( 


1,.j)= Z#x(CINT(I1ZxRND+1)) 

376@ IF codex(i,j)=4 AND codeu(i,j)=Z TH 

EN 3750 

3770 FOR kH=Q TO j-1 

3780 IF codex(i,j)=codex(i,k) AND codeu( 
i.j)=codeu(i,k:) THEN 3759 

3790 IF codex(i,j)=cox(i) AND codeu(i,.;j) 
=cou(i) THEN 3750 

3600 ON i GOTO 3810,3870,3830,5840, 3850, 
J860, 3870, 3880, 3690, 4900 

3810 IF codeut(i,j)=EV(1) OR codey{(i.j)=E 
Y(2) OR codey{i.,j)=EY(3) THEN 3750 ELSE 

3910 

3820 IF codeu(i,j)=EY(1) OR codeu(i,j)=E 

Y(4) OR codeuy(i,;)=EY(5) THEN 3750 ELSE 
3910 

3830 IF codeu(i,j)=EY(é) OR codeu(i, j)=E 

YCZ) OR codeu(i,j)=EY(4) THEN 3750 ELSE 
3910 

3840 IF codeu(i.,j)=E"Y(6) OR codeu(i,j)=E 

Y(8) OR codeu(i,j)=EY(35) THEN 3750 ELSE 
3910 

3950 IF codeu(i,j)=EY(7) OR codeuyl(i, j)=E 

Y(11) OR codeu(i, j)=EY(5) THEN 375@ ELSE 
3910 

3860 IF codeuti,j)=EY(9) OR codeu(i.j)=E 

Y(7) OR codeu(i,j)=EY(13) THEN 5750 ELSE 
3910 

3870 IF codeu(i,j)=EY(1@) OR codeu(i,.j)= 

EY(14) OR codeu(i, j)=EY(15) THEN 37508 EL 

SE 3910 

3880 IF codey(i,j)=EY(9) OR codeut(i,j)=E 

Y(14) OR codeu(i,j)=EY(11) THEN 3750 ELS 

E 3910 

3890 IF codeu(i,j)=EY(1Z) OR codeu(i,j)= 

EY(13) OR codeuy(i, j)=EY(1S) THEN 3750 EL 

SE 3910 

3900 IF codey(i,j)=EY(8) OR codeu(i,.j)=E 

Y(10) OR codeu(i, j)=EY(12) THEN 37350 ELS 

E 3910 

3910 NEXT E 

3920 NEXT j 

3939 NEXT i:RETURN 

3940 HRRÉÉEEREIRUUREURRRR RÉ EERE 

3950 ‘**+* porte de sortie *#+* 

3960? HIHI DE DER DE DER DE DEEE DEEE 

3970 xsor=2#INT(1GXxRND+2) :ysor=S#INT(10* 
RND+2) 

3980 IF xsor=co:{etsor) AND ysor=coy(ets 

or) THEN 3970 

3990 FOR i=i TO S 

4000 IF xsor=codex(etsor,.i) AND ysor=cod 

ey(etsor,i) THEN 3970 ELSE NEXT i 

4810 IF (xsor=Pi AND uysor=P£) OR (xsor=P 
1+* AND ysor=P#) THEN 3970 

4020 IF (xsor=P3 AND usor=P4) OR (xsor=P 


© 3+2 AND ysor=P4) THEN 3970 


4030 IF (xsor=PS AND usor=P6) OR (xsor=P 
5+2 AND ysor=P#é) THEN 3970 
4048 RETURN 


+ 


LOS Q 7 HAITI IEEE UT ED X 

4060 **#*## ouverture coffre **% 

4Q7O ? HAINE TEE TEE DEEE IEEE 

4080 pause=2:GOSUR 5768:CLS #33: INPUTH3J, 

“Code du coffre ";c$ 

4090 c$=LOWERS(cH):1F c$=code$ THEN 4110 

4100 CLS#3:PRINT #3,"Le code n’est pas b 

on":pause=g:G0TO 2120 

4110 IF cletn)=1i THEN 4140 

4120 GOSUR 5770:CLS #3:PRINTHS," PRA 

Va mais il n’y a pas de cle." 

4130 pause=0:GOTO 2120 

4140 PEN 3:LOCATE cox(n),coy(n):PRINT CH 

R$(Z47) 

4150 GOSUBR 5770:CLS H3:PEN 1:PRINTH3," 
BRAVO, prenez la cle” 

4160 HR HIER NET 

4170 ’*+* prise clef **# 

41 ? HAITI IEEE EEE 

4190 CH=INKEYS:IF c$="" THEN 4190 

4200 c=ASC(cH):I1F c‘240 OR ciZ43 THEN #1 


421@ xcl=xx+2#(c=242)-2#(c=243) 

4220 yol=yy+2*x(c=240)-Z2*(c=241) 

4230 IF x“cl=cox(n) AND uycl=coy(n) THEN 4 

240 ELSE 4290 

4240 nbcle=nbcleti:cle(n)=0 

4250 IF nbcle=1i THEN LOCATE #5,9,5:PRINT 
#5, CHR$(247) 

4260 IF nbcle=2 THEN LOCATE #5,19,5:PRIN 

T #5,CHR$(447) 

4270 IF nbcle=3 THEN LOCATE #5,11,5:PRIN 

T #5,CHR$(247) 

4280 PEN 1:LOCATE cox(n).cou(n):PRINT CH 

R$(246) 

429Q pause=0:GO0TO 2170 

4300 HIHI EEE 

4310 *’+*+#+% instructions +*x* 

43ZQ HARMONIE EEE 

4330 IF R$="C" THEN INK G,G:INK 1,9:INK 

2,11:BORDER @ 

4340 PAPER G:PEN 2:CLS:FÔR i=3 TO 37:LQC 

ATE i,1:PRINT CHR$(Z21) :LOCATE i,9:PRINT 
CHR$(221):NEXT i 

4350 FOR i=2 TO B:LOCATE 3,i:PRINT CHRS$( 

221):LOCATE 37,i:PRINT CHR$(2Z1):NEXT i 

436Q READ a:1F a=20 THEN 4410 

4370 IF a<iQ THEN 4380 ELSE 4390 

4380 lig=a:col=3:G0TO 4360 

4390 col=col+i 

4400 LOCATE col.lig:PRINT CHR$(a):G0TO 4 

360 

441Q WINDOW #6,1,40,11,25:PAPER #6,0:CLS 
#6: PEN 3 

4420 FOR i=i TO 14:PRINT #6:NEXT 

4430 GOSUR 5820 

444QG PRINT #6,"Voulez-vous les insiructi 

ons ? (Q/N)" 

4450 I$=UPPERS(INKEYS#):1F I$="N" THEN RE 

TURN ELSE IF 1$<}"O0" THEN 4450 


4460 CLS #6:PRINT #6:PRINT #6:T$="INSTRU 
CTIONS" :GOSUR 5290 

4470 T$="Pour faire defiler les. instruct 
ions, ":GOSUR 5:80 

4480 T$="appuyez sur une touche quelconq 
ue.":GOSUR 5290 

449Q CALL &PPG6 

4500 T$="Vous vous trouvez dans un labur 
inthe de":GOSUR 5:90 

4510 T$="1Q etages et vous devez en sort 
ir le":GOSUR 5290 

4520 T$="plus rapidement possible.":GOsU 
B 5:90 

4530 CALL &PPG6 


‘454Q T$="Mais, pour pouvoir sortir,il vo 


us":GOSUR 5:80 

4550 T$="faudra etre en possession des 3 
clefs":GOSUR 5290 

4560 T$="qui vous permettront de deverra 

uiller":GOSUR 5290 

4570 T$="les 3 cadenas qui condamnent la 
porte":GOSUP 5290 


‘4580 T$="de sortie.":GOSUR 5290 


4590 CALL &PPUE 

4600 T$="Les clefs sont enfermees dans 3 
, + ou":GOSUP 5:80 

4618 T$="seulement 3 des 10 coffres que 

vous":GOSUR 5290 

4620 T$="trouverez dans le labyrinthe.": 

GOSUR 5290 

463Q CALL &PPU6 

4640 T$="L’ouverture d’un coffre necessi 
te la":GOSUR 5280 

4650 T$="connaissance d’un code constitu 

e de 5":GOSUP 5290 

4668 T$="lettires formant un nom d’animal 
.":GOSUR 5290 

467Q CALL &PPO6 

4680 T$="Les lettres du code sont dissim 
ulees":GOSUER 5Z80 

4690 T$="a differents endroits de l’etag 
e. 11":GOSUR 5:90 

4700 T$="peut arriver qu’une lettre du c 
ode ne":GOSUR 52:90 

4710 T$="puisse pas etre obtenue.De tout 
e facon,":GOSUR 5:90 

47:08 T$="vous n'avez pas besoin de conna 
itre":GOSUR 5290 

4730 T$="toutes les lettres du code pour 
essayer":GOSUR 5290 

474@ T$="d’ouvrir un coffre.":GOSUR 5:90 


4750 CALL &PPQ6 

760 T$="Les escaliers vous meneront a u 
n autre":GOSUR 5280 

4770 T$="elage, mais pas obligatoirement 
voisin.":GOSUR 5:90 

4780 T$="Un escalier relie toujours les 
deux" :GOSUB 5:90 

4790 T$="memes etaaes. Un dessin a droit 


A | 


e du":GOSUR 5290 

4800 T$="labyrinthe vous indiquera l’eta 

ge ou":GOSUR 5290 

4810 T$="vous vous trouvez.":GOSUR 5290 

4820 CALL &PPO6 

4830 T$="Vous n’avez le droit de rester 

a un":GOSUR 5280 

4840 T$="meme etage qu’un temps limite { 

180 sec)":GOSUP 5290 

485Q T$="Au bout de ce laps de temps, vo 

us serez":GOSUP 5:90 

4860 T$="transfere automatiquement a un 

autre":GOSUR 5290 

4870 T$="etage. Aussi, surveillez l’horl 

oge.":GOSUR 5290 

4880 CALL &PPO6 

4890 T$="Si vous etes coince, vous pouve 

z vous" :GOSUR 5280 

4900 T$="en sortir en utilisant la touch, 

e <P:":GOSUP 5290 

4910 T$="qui vous permet de percer une c 

loison.":GOSUR 5290 

4920 T$="Mais, attention, suivant la res 

istance":GOSUR 5290 

4930 T$='"de la cloison, le temps necessa 

ire au":GOSUR 5290 

4940 T$="percage peut etre plus ou moins 
long:":GOSUR 5290 

4950 T$="de 5 a 20 secondes. Aussi, n’ut 

ilisez":GOSUR 5290 

4960 T$="cette possibilite qu’a bon esci 

ent.":GOSUP 5290 

4970 CALL &PPO6 

4980 T$="Tout cela serait tres facile, s 

il n'y":GOSUR 5280 

4990 T$="avait pas des fantomes qui rode 

nt et":GOSUR 5290 

5000 T$="qui ont la mauvaise habitude de 
vous":GOSUR 5290 

5010 T$="derober les clefs et d’aller le 

s":GOSUR 5:90 

50:20 T$="remettre dans un coffre. Bien q 

u’ils":GOSUR 5290 

5030 T$="ne vous poursuivent pas vraimen 

t,":GOSUR 5290 

5040 T$="mefiez-vous en cependant *:GOSUR 
5:90 é 

5050 CALL &BPU8 

5060 T$="Pour vous deplacer utilisez les 
fleches":GOSUP 5280 

5070 PRINTH#6:PRINT#6: PRINTH#6, * "3: CHR 

$(244):" : vous” 

5080 PRINT#6:PRINT#6," 
: les fantomes" 

5090 PRINTH#6:PRINT#6, * 
:' les coffres” 

5100 PRINT#6:PRINT#6," 
: les clefs" 

5110 PRINT#6:PRINTH#6," 
: les escaliers" 


": CHRS(Z45) 5" 
*: CHR#(246);" 
";CHRS(Z47)3" 


": CHR$(Z48);" 


46 


5120 PRINT#6:PRINT#6," 
: les lettres du code” 

5130 PRINT#6:PRINT#6," 
: la sortie" 

5140 CALL &PED6 

5150 T$="REMARQUES" :GOSUR 5280 

5160 T$="La forme des labyrinthes, les p 

ositions":GOSUR 5280 

5170 T$="des escaliers, du coffre, des 1 

ettres":GOSUR 5290 

5180 T$="du code, de la porte de sortie, 
restent" :GOSUR 5290 

5190 T$="les memes au cours d’une partie 

. mais":GOSUR 52:90 

5200 T$="changent si vous en failes une 

autre.":GOSUR 5290 

5210 CALL &PEPQ6 

52:20 T$="Lorsque vous arrivez a un nouve 

1 etage,":GOSUPR 5280 

5230 T$="et meme si vous y etes deja pas 

se, un":GOSUR 5299 

5240 T$="un nouveau code est affecte au 

coffre.":GOSUR 5790 

23250 T$="PONNE CHANCE" :GOSUB 5:80 

5260 CALL &PPO6 : 

5270 CLS:RETURN 

5280 PRINT #6 

5290 PRINT #6:PRINT #6 

5300 LOCATE #6,INT((4Q-LEN(TH))/2)+1,25: 

FOR t=1 TO LENCT$):PRINT #6,MIDHS(T$,t,1) 
sIF MID$(T$,t,1)<>" " THEN SOUND 1,284, 

3. 5,0,0,1 

5310 FOR d=1 TO SO:NEXT d:NEXT t:RETURN 


": CHR#(164);" 


": CHR$(233);" 


532 © DATA 3,128,271,221,221,221,225,223, 
21:221,225,120,120,221221,221,221,27, 
128,128, 221,221 ,221 221 221,221; 128,223, 
221,221,221,221,225,128 
ee DATA 4,128,128,2271,221,221,2271,221, 
21,221,221,128,128,128,128,128,271,221, 
FE 128,128, 223,221,221,224, 128,221, 
221,128, 128, 128, 221, 128 
5340 DATA 5,128,128,221,271,128,221,221, 
128,221,221,129,2237,221,921,291,221,521, 
128,128, Re 221,224,128, 129,221, 
221,221,221,221,224,128 
5350 DATA de 128,128,221,221,128,221,221, 
128,221,221,128,221,120,126.128,251,2244 
128,128,223,221,221,224,128,128, 128,221, 
221,128,128,1278,128,128 
5360 DATA 7,128, es: 2214128, 22,224, 
ent 120,222,2214221 221,224, 222, 
21, ee 112152215221 201,221, 128,222 
221, 2e 1,271,221,128 
5370 sus (9:221,221,221,221,221, 221,221, 
,71.,46,77,65,78;,75,79,97,83,75,73,45, 
49,57,56,53,2 
5380 ?#RKRÉHREEEREEERRERIIE 
5390 n1$="Victor":h1=5555 
5400 n?$="William" :h2=6666 


5410 n3$="Xavier":h3=7777 

5420 n4$="Yvan":h4=8898 

5430 n5$="Z0e":h5=10000 

544@ RETURN 

5450? MM EDEN DETTE JDE 

5400 ’***x fin de partie +## ÿ 

5470 ? HIHI IEEE EE 

5480 pause=1 

5490 CLS#3:CLS#1 

5500 s1=INT(TIME/300) : temps=temps+s1i-s0+ 

tepeto 

5510 IF temps>=h5 THEN LOCATE#H1,1,10:PRI 

NT#1,"VOTRE SCORE EST TROP":PRINT#1:PRIN 
T#1,"MAUVAIS POUR POUVOIR" :PRINT#1: PRINT 

#1,"FIGURER AU PALMARES":GOTO0 53580 

5520 1F TEMPS<hi THEN LOCATE#1,1,10:PRIN 

T#i,"TOUTES MES FELICITATIONS:":PRINT#1: 
PRINT#1,"VOUS AVEZ PATTU LE RECORD" :GOTO 
5540 

5530 IF TEMPS<h5 THEN PRINT#1,"PRAVO, BE 

LLE PERFORMANCE" : PRINT#1:PRINT#1,"QUI VO 
US PERMET DE*:PRINT#1:PRINT#1,"FIGURER A 

U PALMARES" :GOT0 5540 

554Q INPUT “Quel est votre nom";n$ 

5550 IF temps<hi THEN n5$=n4$:n4$=n93$:n3 
=n2$sn2$=ni$:ni$=n$ ELSE IF tempséhZ TH 

EN n5$=n4$s:n4$=n3$:n3$=n2$:n2$=n$ ELSE I 
F temps<h3 THEN n5$=n4$:n4$=n3$:n3$=n$ E 

LSE IF temps<h4 THEN n5$%=n4$:n4$=n$ ELSE 
IF temps<h5 THEN n5$=n$ 

5560 tem=temps 

5570 IF tem<hi THEN h5=h4sh4=h3s:h3=h2:h2 
=hishistem ELSE IF tem<h2 THEN h5=h4sh4z= 
h3sh3=h2:h2=tem ELSE IF tem£h3 THEN h5=h 
&sh4=h3sh3=tem ELSE IF temih4 THEN h5=h4 
shé=tem ELSE 1F tem<h5 THEN h5S=tem 

5580 CLS#1 

5590 FOR i=7 TO 1B8:LOCATE #1,i,1:PRINT#I 
: CHR (238) :LOCATE #1,i,7:PRINT#1,CHRS$ (23 
8):NEXT 

5600 FOR i=2 TO 6:LOCATE #H1,7,i:PRINT#1, 
CHR$ (238) :LOCATE #1,18, i:PRINT#1,CHR$ (23 
8) :NEXT 

5610 LOCATE #1,11,3:PRINT#1,"MAZE" 

5620 LOCATE #1,9,5:PRINT#1,"PALMARES" 
5630 LOCATE #1,3,11:PRINT#1,"1- “sn1$:LO 
CATE #1,16,11:PRINT#1,USING "HHH##" 5h13: 
PRINT#I," sec." 

5640 LOCATE #1,3,13:PRINT#1,"2- "yn£$:LO 
CATE #1,16,13:PRINT#I, USING "HHH##" he: 
PRINT#1," sec." 

5650 LOCATE #1,3,15:PRINT#1,"3- "sng3$:LO 
CATE #1,16,15:PRINT#1,USING "HHH##" 5h33: 
PRINT#1," sec." 

5660 LOCATE #1,3,17:PRINT#1,"4- "in4$:LO 
CATE #1,16,17:PRINT#1,USING "H#H#H##" sh: 
PRINTH#I," sec." 

5670 LOCATE #1,3,19:PRINTH1,"5- ";n3$:L0 
CATE #1,16,19:PRINT#I USING "H#####" hs: 
PRINT#I," sec." 


5680 GOSUR 5820 

5690 LOCATE #1,1,2Z2:PRINT#1,"Voulez-vous 
faire une autre partie (O/N) 7?" 

5700 K$=UPPERS(INKEY$):1F K$="N" THEN NE 

W ELSE IF K$<>"O" THEN 5700 

5710 ERASE R,S,EX.EY,cox*,cou,cle,codex,c 

odeu 

5720 temps=Q:nbcle=Q:record=hi:CLS:GOTO 

680 

5730 ? HIER 

5740 ?’#x+xx PRUITAGES *## 

5750 ?#HRHHREREEERINIÉUERX 

5760 SOUND 1,200, 15.4:SOUND 1,0,5 : SOUND 
1,150.15,4:SOUND 1,0,5:SOUND 1,100,15,4: 


:SOUND 1,0,5:SGUND 1,80, 30, 4: RETURN 


5770 FOR i=0 TO 700 STEP 100 

5780 SOUND 1,2000+2#i,1@+i/100,7 

5790 NEXT i:RETURN 

5800 SOUND 1,284,20,5:SOUND 1,0,2:SOUND 
1,284,20,5:SOUND 1,319,20,5:SOUND 1,358, 
40,5:RETURN 

5810 ’*#Aupres de ma blonde* 


‘5820 RESTORE 5880 


5830 FOR no=i TO 9% 

5840 READ fr,du 

5850 SOUND 1,fr,du,s5 

5860 SOUND 2,fr/2Z,du,3 

5870 SOUND 4,frx2z,du,3 

5880 DATA 142,20,0,3,142,40,134,20, 142,4 
Q 

5890 DATA 159,20.179,60,0.3,179,:0,0,10 
5900 DATA 179,20,119,40,0,3,119,20,106,4 
Q 

5910 DATA 0,3,106,:0,119,60,0.,3.119,20 
5920 DATA 0,10,142,20.0,3,142,40,134,20 
5930 DATA 142,40,159,20,179,60,0,3,179,2 
Q 

5940 DATA 0,10.179,20,119,40,0,3,119,:0 
5950 DATA 106.40,0,3,106,20,119,60,0,3 
596Q DATA 119,:0,0.10,119,:0,106,40,0,3 
5970 DATA 106,20,0.3,106,40,142,20,134,4 
,] 

5980 DATA 0,3.1434,40,0,3,134,:0,119,40 
5990 DATA 0.3,119,:0,0,3.119,40,159,20 
6000 DATA 147,60.0.3,14:,40.0,18,179,60 
6010 DATA 159.20,142,20,134,20,14%,60,11 
9,40 

68:Q DATA @,10.159,40,154,20.142,40.159, 
20 

6030 DATA 179,40,213,20,239,40,0.10.179, 
en) 

6040 DATA 159,20.142,70,134,20,142,6@,11 
9,40 

6050 DATA @,10,159.40,134,20,142,40,159, 
zQ 

6960 DATA 179,60,179.40 

607@ NEXT no 

6089 RETURN 

PAULINE T ET EEE TEE TT ITS. 

6100 +++ CODES ++ 
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MTS SLT LS SILSSSIS TS: 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


85,73,71,76,69 
65,83, 80, 73,67 
66,73,67,72, 59 
66, 73,83, 79, 78 
66,79,69,85, 70 
66,85, 84, 79,82 
87,65,82,80, 49 
67,72,73,69,78 
67,82,65,6b, 69 
67,89,71,78, 69 
68,73,78,68, 69 
88, 73, 78, 713 79 
68,79,71,85,69 
69,73, 68, 69, 82 
70,85,82,69,84 
71,82, 73,86, 49 
71,85,69,80, 69 
72,69,82, 79,78 
72,73,66,79,85 
72,85, 80, 80, 69 
72,89,69,78,69 
73,83, 65,82, 68 
75,79,65,76,65 
76,65, 80, 73,78 
76,69,82,79,84 
77,65, 78, 84, 69 
77,69,82,76,69 
77,73, 76,65, 78 
77,79,82,83, 69 
77,79, 82,85, 69 
77,79,85,76,69 
77,85, 76,69, 84 
77,85,76,79,84 
79,75,65, 80, 73 
79,82, 86,69, 84 
80,45, 78,68, 65 
80, 79,78,69,89 
80, 79,85, 76,69 
82,65,84,79,78 
83,65, 73,71,65 
83,69,82,73,78 
83,73,78,71,69 
84,65,80,73,92 
84,65,84, 79,85 
84,65,85, 80,69 
84,73,71,82, 69 
84,82,85,73, 69 
86,65, 67, 72,69 
86,73,83,79,78 
90, 69,66, 82, 69 


SOIREE MONDAINE 


AVEC AMSTRAD 


Eddy DUTERTRE 


de l'arrivée sur le mar- 
ché du PCW 8256, 
AMSTRAD FRANCE organisait 
un petit cocktail au cours duquel 


il nous a été possible de voir et’ 


toucher ce nouveau matériel. 
Notons que, par la même occa- 
sion, nous avons découvert le 
6128 : il est beau, mais beau... | 
Autour du matériel, il y avait du 
beau monde (c'est normal, puis- 
que nous y étions pour représen- 
ter les lecteurs de CPC). Mme. 
Marion VANNIER et M. François 
QUENTIN d'AMSTRAD FRANCE 
accueillaient, pour l'occasion, M. 
Alan SUGAR, PDG d'AMSTRAD. 
Si quelques questions furent 
posées, on ne peut pas dire qu'il 
y eut ‘’conférence de presse’’, et 
c'est tant mieux : l'ambiance 
était détendue. Un portable dans 


l'occasion du SICOB et : 


la gamme AMSTRAD ? Pas ques- 
tion, paraît-il ! Pourquoi avoir 
choisi les disquettes 3°’ ? À cause 
de leur prix, pardi ! Et le risque de 
voir tomber ce format dans l'ou- 
bli ? Bref, ce ne sont, semble-t-. 
il, que propos alarmistes ! La 
pénurie de disquettes ? Faux, on 
a ce qu'il faut pour continuer à ali- 
menter le marché ! | 
Nous voilà rassurés, que diable ! 
Soulignant sa combativité sur un 
marché en pleine ébullition, 
symbole des KO mémoire sans 
cesse croissants et... du KO 
infligé à la concurrence, AMS- 
TRAD nous remettait, en partant, 
un petit cadeau : une splendide 
paire de gants de boxe rouges. 
Croyez-nous, on ne va pas les 
‘‘raccrocher’’ de sitôt ! 

Et si l’on parlait un peu du maté- 
riel ? 


PREMIER CONTACT 
AVEC UN 6128 


Ciblant une clientèle plus profes- 
sionnelle (mais convenant aussi 
aux amateurs !}), l'esthétique de 
la machine a été revue. D’allure 
très sobre (les touches de couleur 
ont disparu), la machine est 
moins longue et moins épaisse 
que les 464 et 664. De ce fait, 
l'encombrement dépasse à peine 
celui du clavier détachable de cer- 
tains ordinateurs. Le contact 
avec les touches du clavier n’est 
pas désagréable. La position de 
la touche RETURN (noyée entre 
le clavier et le pavé numérique) 
est un peu déroutante. La touche 
COPY ne se trouve plus au 
milieux des touches curseur qui, 
elles-mêmes, n'ont plus la même 
disposition. Les commandes Mar- 
che/Arrêt et volume sonore ont 
émigré à l'arrière de l'appareil. 
Sur le flanc gauche, on trouve 
l'entrée joystick, la sortie stéréo 
et la prise cassette. 

Côté mémoire, c'est bien sûr 
64 k supplémentaires répartis en 
4 fois 16 k. Cette gestion par 
‘’pages'’’ de 16 k est utilisée par 
le soft comme une sorte de dis- 
que virtuel. Le ‘’BANKMANA- 
GER’ est le ‘‘plus'’’ de ce CPC 
6128. || assure la gestion des 
64 k supplémentaires. 

Il est ainsi possible d'effectuer 
des sauvegardes et rappels 
d'écrans ultra-rapides, ou 
d'échanger le contenu de deux 
écrans. Les commandes associées 
passent par le RSX (| BANKOPEN, 
| BANKWRITE, |! BANKREAD, 
| BANKFIND). 

Le CPM + offre bien des utilitai- 
res intéressants, permettant 
notamment des reconfigurations 
faciles de périphériques (impri- 
mante, écran, etc.). Il en va ainsi 
de la reconfiguration de caractè- 
res ou de la palette de couleurs. 
CPM + ouvre davantage la voie 
vers les gros logiciels profession- 
nels tournant sous CP/M. Reste 
à les transférer en 3 pouces ! 
Quatre faces de disquettes sont 
livrées pour CPM et ses utilitaires. 
Une face supporte CPM 2.2 pour 
assurer une compatibilité avec les 
464 et 664. Notons l'existence 
de DISCKIT 3 et DISCKIT 2 qui 


rendent beaucoup plus faciles les 
opérations de formatage et 
copies de disquettes et fichiers. 
La documentation remise avec 
l'appareil est volumineuse. Nous 
avions acheté le nôtre chez 
VISMO, et l'emballage contenait 
deux manuels : l'un en anglais, 
l'autre en français. 

Le CPC 6128 écrase, par son prix 
compétitif, les concurrents : ce 
n'est pas nouveau chez AMS- 
TRAD ; le premier faux pas 
consiste, à notre avis, à avoir 
‘’coupé l'herbe sous le pied’’ au 
CPC 664. Demandez aux reven- 
deurs, qui en ont en stock, ce 
qu'ils en pensent ! Quant aux uti- 
lisateurs, ils se retrouvent avec 
une machine qui n'est plus fabri- 
quée moins de six mois après sa 
sortie tapageuse. 


NOUVEAU 
LE PCW 8256 


La machine de traitement de tex- 
tes à la portée des plus petites 
entreprises. À mi-chemin entre 
l'ordinateur (le PCW 8256 intè- 
gre un Basic rudimentaire), et le 
traitement de texte professionnel. 
La machine se présente sous l’as- 
pect, agréable au regard, d'un 
écran monochrome et d’un cla- 
vier détachable. L'ensemble est 
de couleur crème, et le clavier 
n'est pas sans rappeler celui de 
certains ordinateurs ‘’compati- 
bles”’. Premier gros reproche : le 
clavier est QWERTY. La clientèle 
française (petits secrétariats, étu- 
diants, etc.), s'y habituera-t-elle ? 
Même si les minuscules accen- 
tuées sont bien présentes, la dis- 
position des touches est contes- 
table. 


Sur le côté droit de l'écran, face 
à l'utilisateur et disposé vertica- 
lement, se trouve le lecteur de 
disquettes 3 pouces. L'écran est 
capable d'afficher 32 lignes de 
90 caractères, limite extrême de 
la lisibilité sans fatigue visuelle. 
Complétant cette configuration, 
une imprimante dédiée, la DMP 
2000 lui est connectée. Sa 
vitesse de travail avec, 
soulignons-le, un niveau de bruit 
très acceptable, est de 90 carac- 
tères par seconde. En qualité 
courrier, elle écrit à 20 cps. Ilest 
possible de l'alimenter en feuille 
à feuille ou en continu. 

Le traitement de texte semble 
très puissant et il est capable de 
travailler en ‘’multitâches’’, pen- 
dant l'impression, un spooler ali- 
mente l'imprimante, permettant 
à l'opérateur de poursuivre la sai- 
sie : pas de perte de temps |! 
Notons que la saisie semble ralen- 
tie dans ce cas. 

Le Basic, intégré au PCW 8256, 
ne vous permettra pas de jouer à 
SPACE INVADERS. C'est un 
Basic ‘‘sérieux’’ plus gestionnaire 
que joueur ; on s’en doutait |! 
La configuration présente, 256 k, 
1 drive, évoluera vers un nouveau 
produit 512 k et 2 drives. Pour 
7000 F, vous pouvez disposer 
d'un bon traitement de texte 
avec imprimante. Seule sugges- 
tion : l'adaptation au marché 
français avec un clavier AZERT Y. 
Certainement un bon produit au 
rapport qualité/prix, mais saura- 
t-il séduire une clientèle ? On 
trouve des ordinateurs person- 
nels compatibles IBM PC (avec 1 
drive) pour 10 000 F. 

Reste à leur ajouter écran et 
imprimante pour déboucher sur 
une immense bibliothèque de 
logiciels. Le prix est double, mais 
on peut en attendre d’autres ser- 
vices. 
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Denis BOURQUIN 


Après avoir regardé le format 
d'une ligne assembleur, et avant 
de nous lancer dans les instruc- 
tions du Z80, nous allons analy- 
ser quelques directives assem- 
bleurs rencontrées dans pratique- 
ment tous les assembleurs Z80. 


Les directives 

d'assemblage 

Les directives d'assemblage sont 
des pseudo-instructions ; elles ne 
provoquent pas de génération de 
code objet, mais elles sont là uni- 
quement pour permettre au pro- 
gramme d'assemblage de fonc- 
tionner normalement. Nous ne 
ferons pas le tour de toutes les 
directives, mais seulement des 
principales, nécessaires à l'écri- 
ture d'un programme ; nous 
introduirons les autres au fur et 
à mesure de l'analyse des instruc- 
tions Z80 avec les exemples. 


La directive ORG 

La syntaxe de cette directive est 
de la forme ORG 4000H. Elle se 
compose de la commande ORG 
et d’une adresse définie sur 16 
bits. Son rôle est d'indiquer au 
programme d'assemblage que ce 
qu'il va assembler commence à 
l'adresse indiquée, dans l'exem- 
ple à l'adresse 4000H (en hexa- 
décimal). La notation hexadéci- 
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@ INITIATION 
A L'ASSEMBLEUR 


dd 


male a été expliquée en détail 
dans le numéro 1 dans l’article 
Mémoire d’Ecran. 

Comme ZEN est un des assem- 
bleurs les plus répandus sur 
AMSTRAD, nous parlerons d’une 
directive particulière dont il est 
doté : la directive LOAD. 


LOAD 

ZEN est un assembleur qui 
assemble uniquement en 
mémoire ; il sera donc nécessaire 
de lui indiquer dans quelle zone 
mémoire il devra loger le code 
qu'il génère. Ce sera le rôle de la 
directive LOAD ; en l'absence de 
cette directive, il ne génère qu'un 
listing d'assemblage. Exemple : 
sous ZEN pour écrire un pro- 
gramme qui commencera à 
l'adresse 8000H et que l’on vou- 
dra exécuter ensuite où sauver 
sur cassette, il faudra écrire : 


ORG 8000H 
LOAD 8000H 


Cette directive LOAD n'existe 
pas sur les autres assembleurs 
qui génèrent le code objet soit 
dans un fichier disque, soit en 
mémoire lorsqu'ils possèdent 
l'option d'assemblage ‘‘en 
mémoire’. 


La directive EQU 
Le rôle de cette directive est d’af- 


‘ fecter une valeur à un symbole, 


symbole qui sera une constante ; 
cette fonction est l'équivalent du 
CONST en Pascal. Chaque fois 
que l’assembleur rencontrera, par 
la suite, ce symbole, il le rempla- 


cera par sa Valeur. 
Exemple : 


CAS EQU 5 
LD C,CAS 


est équivalent à LD C,;5 et l’as- 
sembleur génère le code corres- 
pondant à LD C,;5. 

Autre exemple : 


MOTCAS EQU 0F610H 
LD BC,MOTCAS 


L'assembleur génère le code 
équivalent à LD BC,OF610H. 
Nous avons associé à MOTCAS 
la valeur hexadécimale 0F610H, 
et tout au long de notre pro- 
gramme, ce symbole vaudra 
0F610H. 

Normalement, dans les assem- 
bleurs, un symbole défini par la 
directive EQU ne peut pas être 
réaffecté ; nous ne pouvons trou- 
ver la directive ‘’ETIQUETTE” 
EQU qu'une seule fois dans un 
programme. 

Dans les exemples, nous avons 
écrit les constantes soit en déci- 
mal, soit en hexadécimal ; nous 
allons ouvrir une parenthèse sur 
la manière d'entrer une constante 
en assembleur. 


LES CONSTANTES 


Nous pouvons, dans une ligne 
instruction, écrire une valeur 
immédiate : 


‘— en notation décimale : en 


général, l'écriture est la suivante : 
10, 15,0; 

— en notation hexadécimale : 
dans ce cas, on indique que la 


base est différente en mettant la 
lettre correspondant à la base de 
numérotation à la fin de la cons- 
tante : la lettre pour la notation 
hexadécimale est la lettre H. La 
notation hexadécimale est la base 
16, et nous avons donc 16 chif- 
fres qui sont O à 9 et de AàF. 


Les constantes octales 

Comme pour la représentation 
hexadécimale, la représentation 
octale sera indiquée par une let- 
tre, cette lettre est la lettre O 
après la constante. Exemple : 
230. 

230 est équivalent à 19 en déci- 
mal et à 13H. Les chiffres dans 
cette représentation vont de O à 
8. 


Les constantes ASCII 

Un caractère peut être représenté 
par un code international abon- 
damment utilisé en informatique : 
le code ASCII. Par exemple, la let- 
tre À est codée par le nombre 65 
ou 41H en hexadécimal. Nous 
pourrons donc utiliser les lettres 
sous leur représentation ASCII en 
assembleur ; par exemple pour 
l'affichage d'un texte à l'écran, le 
code d'échange des caractères à 
afficher sera le code ASCII. 
Exemple : en assembleur nous 
pourrons écrire : 


LD A,'B' 
ce qui est équivalent à : 
LD A,66 


car le code ASCII de ‘B' est la 
valeur 66. 

Exemples : 10H, OFFH, OCOOOH 
Comme dans ce système de 
numérotation nous utilisons des 
chiffres qui sont représentés par 
des lettres, et pour éviter toute 
confusion avec des symboles, 
lorsque le premier chiffre d’une 
constante hexadécimale est une 
des lettres À à F, il est impératif 
de mettre devant un O, sinon une 
erreur sera générée à l’assem- 
blage. 


Revenons à nos directives d’as- 
semblage. 

Dans un programme, nous trai- 
tons des données, il va donc être 
nécessaire de leur réserver de la 
place en mémoire. Nous avons, 
pour cela, un certain nombre de 


directives, ce sont les directives 
‘’Define’’. 


Directive DB ou DEFB 

(define byte) | 

Le rôle de cette directive est de 
réserver un ou plusieurs octets en 
mémoire. 

Exemple : MESSAGE DB ‘BON- 
JOUR" Le message est dans le 
champ étiquette, DB dans le 
champ opération, ‘BONJOUR. 
Dans le champ opérande, cette 
ligne d'instructions réservera une 
zone mémoire ; dans la première 
case de cette zone, nous aurons 
la valeur 65, dans la deuxième la 
valeur 79, etc. Chacune de ces 
valeurs étant le code ASCII de la 
lettre correspondante : 65 est le 
code ASCII de B et 79 le code 
ASCII de ©. Dans la suite de cette 
article, nous ne parlerons plus de 
cases mémoire mais d’octets, car 
chacune de nos cases mémoire 
est un octet, comme nous 
l'avions expliqué dans le numéro 
précédent. 

Lorsque, dans la suite du pro- 
gramme, nous ferons référence à 
MESSAGE, ce sera à l’octet 
d'adresse correspondant à la 
case où se trouve la lettre B 
(valeur 65), c'est-à-dire si nous 
avons : 


ORG 7000H. 
MESSAGE DB ‘BONJOUR’ 


la lettre B se trouve à l'adresse 
7000H, la lettre O à l'adresse 
7001H, etc. 

Autres exemples : 

VAL1 DB 10 

VAL2 DB OF5H 

TAB DB 10,11,12,14 

Le troisième exemple a réservé 4 
octets aux emplacements 10, 
11,12 et 14. 


Directive DW, DEFW 

(define word) 

Par cette directive, nous ne réser- 
vons plus un octet, mais un 
groupe de deux octets appelé 
mot (mot de 16 bits). 

Exemple : MOT1 DW 0F542H 
Nous avons, par cette directive, 
réservé deux octets en mémoire 
dans lesquels nous aurons mis les 


valeurs 42H pour le premier octet 
et F5H pour le second. Nous 
voyons ici une autre particularité 
du Z80 qui, pour stocker des 
mots en mémoire, stocke d’abord 
l'octet de poids faible, puis l'oc- 
tet de poids fort. 

Dans la suite du programme, si 
nous écrivons LD HL,(MOTI), 
nous mettrions dans la paire de 
registre HL la valeur F542H, le 
registre H à la suite de cette ins- 
truction contenant OF5H et le 
registre L contenant 42H. 

Nous pouvons trouver aussi : 
BRANCH DW TABLE avec 
TABLE qui est une étiquette de 
programme et dans ce cas, 
BRANCH est initialisé à la valeur 
de l'adresse correspondant à 
TABLE. 

Directive DS ou DEFS 

(define storage) 

La syntaxe de cette directive est 
la suivante : 


BUFFER DS 128 


Dans cet exemple, nous avons 
réservé une zone mémoire de 
128 octets que nous avons appe- 
lée BUFFER. 

Cette directive n’affecte pas une 
valeur à un octet, mais réserve un 
certain nombre d'octets ; nous 
trouvons derrière DS ou DEFS le 
nombre d'octets réservés. 

La syntaxe employée pour les dif- 
férentes directives utilisait l’es- 
pace comme séparateur. Les uti- 
lisateurs de ZEN auront remarqué 
que leur assembleur n'utilisait pas 
la même syntaxe. 

Comme il a été dit plus haut, ZEN 
utilise les deux points comme 
séparateur du champ étiquette et 
du champ instruction nous 
aurons donc avec ZEN l'écriture 
suivante pour les directives 
DEFINE : 


MOT1:DW 0F542H 
MESSAGE:DB ‘BONJOUR 
BUFFER:DS 128 


Dans le prochain numéro, nous 
passerons aux choses sérieuses 
et commencerons l'analyse des 
instructions Z80 avec l'écriture 
de nos premiers petits program- 
mes. 
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DES 


COULEURS 


PLUS 
CLAIRES 


Michel ARCHAMBAULT 


NK... PEN... PAPER... BOR- 

DER... Bouh, que c'est compli- 
qué ! Expliqué tout autrement, 
cela va devenir enfin clair : 
Il y a cinq notions différentes : 
— Le numéro de référence de la 
teinte ; il y en a 27 numérotées 
de O (noir) à 26 (blanc brillant). 
C'est la liste de la page E3.2 du 
manuel d'origine. Appelons-le 
RT, c'est-à-dire référence teinte. 
— La palette de teintes que l'on 
se sélectionne, c'est INK. En 
mode normal, MODE 1, on n’a 
droit qu’à quatre INK. On les 
numérote de O à 3. Dès la mise 
sous tension (MODE 1), on nous 
propose les INK suivants : 
INK 0,1 : bleu parce que RT = 1 = 
bleu, 
INK 1,24 : RT=24 c'est jaune 


52 


vif, 

INK 2,20 : RT +20, un turquoise 
vif, 

INK 3,6 : RT=6=rouge vif. 
Vous voulez remplacer le tur- 
quoise par le vert de RT=9 ? 
Facile, faites INK 2,9 (en mode 
direct où dans un programme). 
En MODE O, on a 16 INK sur la 
palette, de INK O à INK 15. Les 
quatre premiers (0 à 3) sont les 
mêmes RT que précédemment. À 
quoi correspondent-ils ? Consul- 
tez le tableau de la page E3.4 du 
manuel. Vous voulez du noir (noir 
RT =0) ? C'est INK n° 5. 

En MODE 2, on n’a que 2 INK, 
INK O et INK 1. 

— PAPER, c'est la couleur de 
fond. Par défaut, l’'AMSTRAD 
prend pour PAPER l'INK O, bleu 


foncé. Vous voulez un fond 
rouge ? Faites PAPER 3, parce 
que INK 3, c'est le rouge sur 
notre palette. Si vous faites 
PAPER 0,3, il y aura clignotement 
bleu-rouge (aucune rétine n'y 
résiste.….). 

— PEN (stylo en anglais). C’est la 
couleur des caractères, des traits. 
Même syntaxe que PAPER, on le 
fait suivre du numéro d’INK. Par 
défaut, c’est INK 1 (jaune vif). 
Vous voulez des lettres bleues 
sur fond rouge ? Faites PAPER 3: 
PEN O. On peut écrire PEN avant 
PAPER, peu importe. 

— BORDER, c'est la couleur de la 
bordure, elle est totalement indé- 
pendante des couleurs présentes 
sur la palette, car on fait suivre 
BORDER, non pas d’un numéro 
INK, mais du numéro RT désiré 
(de O à 26). En MODE 1, on peut 
avoir 4 teintes en INK plus une 
cinquième en BORDER. Exemple, 
BORDER 16 = orange-clair. 


OK ? Bon, alors voyons quelques 
cas particuliers. 

— Par étourderie PAPER et PEN 
ont le même numéro d’INK ; pire 
qu'un CLS parce qu'il n'y a pas 
de ‘‘READY'’. Ne vous affolez 
pas, pressez ESC deux fois 
(Break) puis tapez PEN 1 (ou 2 ou 
3) et ENTER, et votre texte réap- 
paraît. 

— En MODE 1, faisons PEN 6, 
alors que l’on ne devrait pas 
dépasser PEN 3 ; pas de message 
d'erreur, l'AMSTRAD repart à 
INK O : PEN 3=PEN 0 : PEN 5 = 
PEN 1 ; PEN 6=PEN 2 ; etc. 
jusqu'à PEN 26. 

— Pour modifier les couleurs. 
Rappelez-vous les deux choses 
prises par défaut lors de la mise 
sous tension, à savoir la palette 
des INK/n° RT (page E3.4) et le 
fait que PAPER =INK O et PEN = 
INK 1, ou de dire PEN 2 ou 
PAPER 3, ou de combiner ces 
deux techniques. 

Attention ! Il y a des mariages 
malheureux entre deux couleurs 
voisines ; perte de netteté 
(AMSTRAD n'y est pour rien, le 
moniteur non plus), ou contraste 
trop faible ou insoutenable. A 
vous de chercher quelques bons 
accords. 


JOUER 
AVEC LES 
INTERRUPTIONS 


…, CARE 


MSTRAD est capable de faire 

plusieurs choses à la fois, et 
ce travail en ‘‘’multitâches”” est 
accessible, vous le savez, depuis 
le Basic. EVERY et AFTER n'étant 
pas universels, nous avons cher- 
ché à aller plus loin : 


Afficher l'heure en Basic sous le 
contrôle d'EVERY est extrême- 
ment simple, seulement il est 
impossible d'inclure un tel sous- 
programme dans un programme 
utilisant des INPUT : la pendule 
se bloque pendant la durée de 
l'entrée des variables (elle est 
remise à l'heure ensuite). Devant 
un tel problème, on est conduit 
à utiliser le langage machine. 
L'AMSTRAD est capable de trai- 
ter des interruptions, synchrones 
ou asynchrones, auxquelles on 
peut associer des ‘’événements”” 
exécutables cycliquement. Plu- 
sieurs éléments sont paramétra- 
bles et, sans entrer en profondeur 
dans les détails, nous vous pro- 
posons, au moyen de deux petits 
exemples d'application, de faire 
plus ample connaissance avec 
ces interruptions. 
Deux types d'interruptions nous 
intéressent : 
— FAST TICKER apparaissant 
tous les 1/300+ de seconde, 
— FRAME FLYBACK, tous les 
1/50: de seconde, correspon- 
dant au retour du spot assu- 
rant le balayage. 
Les équivalents ‘‘soft’’ de ces 


interruptions sont appelés 
“"EVENTS"" et, si leur manipula- 
tion s’avère un peu délicate au 
début, vous conviendrez que 
savoir les utiliser ouvre pas mal 
d'horizons. L'installation d'un 
“"EVENT"”" suit un schéma relati- 
vement simple. L'événement est 
décrit par sa classe, sa priorité, 
et l'adresse de la routine qui est 
appelée pour le traiter. 

La classe : événements synchro- 
nes ou asynchrones. Les événe- 
ments synchrones sont traités 
immédiatement, les synchrones 
dès que le système a le temps. 
Pour les événements synchrones, 
on attribue une classe de priorité. 
Quant à l'adresse de la routine, 
elle est donnée au système lors 
de la ‘‘description’’ initiale de 
l'événement. 

A chaque ‘’EVENT"" est attribuée 
une zone mémoire (d’un certain 
nombre d'’octets en fonction du 
type d'interruption) réservée au 
système. 

L'initialisation d’un EVENT se fait 
comme suit : 

HL contient l'adresse de la zone 
mémoire réservée. 

B contient ‘‘la classe’’. 


Bit 7 6 5 4 3 2 1 0 


1 Asyn Express @ 
© Sync Normal g 


adresse proche 
adresse lointaine 


niveau priorité 


C contient une valeur fonction de 
l'adresse mémoire de la routine 
d'événement (selon qu'elle est en 


RAM, ROM, ROM externe, ). 
DE contient l'adresse de la rou- 
tine qui sera exécutée à chaque 
interruption. 

Voici un premier exemple d’appli- 
cation: remplacer le curseur fixe 
par un curseur clignotant. On va 
donc, successivement, éteindre 
et allumer le curseur. On utilisera 
pour cela le FRAME FLYBACK 
(donc toutes les 20 ms). La zone 
mémoire à réserver pour le 
système est de 9 octets. Le type 
d'événement est ‘‘’asynchrone”. 
La routine sera en RAM centrale. 
Le contexte a été sauvegardé à 
chaque exécution de la routine 
interruption : bien que cela ne soit 
pas nécessaire, notre auteur Eddy 
DUTERTRE a pris toutes ses pré- 
cautions. Les routines en BB7B et 
BB7E correspondent respective- 
ment à l’autorisation et l’interdic- 
tion d'affichage du curseur. 

Si le sujet (interruptions) traité ici 
rapidement, vous passionne, 
faites-le nous savoir, et nous 
ferons un article plus complet sur 
la question. 
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10010 FOR n=&8000 TO &8029:READ dé:POKE n.VAL(*&"+d#) :NEXT 


10000 MEMORY &7FFF 
10020 ’ 


10080 DATA CD 


10090 DATA C1 


PAGE 


D. BOURQUIN 


pers possède déjà un 
compilateur PASCAL, mais ce 
compilateur fonctionne sous le 
système d'exploitation Basic et 
est de taille réduite ; il permet 
simplement une bonne initiation 
au langage Pascal, mais il lui 
manque surtout les opérations 
sur les fichiers. Il manquait donc 
à l'AMSTRAD un compilateur 
performant et fonctionnant sous 
CP/M, il existe maintenant et 
nous ne pouvons espérer mieux. 
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LD B.81H 


LD 


Type asynchrone en mémoire centrale. 


Sauvegarde du contexte avant traitement de 


Mémoire centrale, donc pas en ROM externe. 
l'interruption. 


Initialise le bloc d'EVENT. 
Effectue le clignotement (cadence) en fonc- 


tion du contenu de 7FFF. 


C,0 
LD DE,LBOOE Adresse de la routine à exécuter. 


CALL OBCD7H 
CALL OBB7EH 
JR Lo?! 


CALL OBB7EH 


L8DIE: 


800A CDD7BC 
8019 CD7BPB 


801C 1803 
801E CD7ERB 


En effet, un des meilleurs compi- 
lateurs PASCAL:TURBO PASCAL 
est maintenant disponible sur 
AMSTRAD. Tous les program- 
meurs s'intéressant au langage 
Pascal ont entendu parler de 
TURBO PASCAL. 


LD HL,7FFFH 


INC 


8021 21FF7F  LS8021: 


8024 34 


Restitue le context initial. 


(HL) 


POP BC 


RET 


POP HL 
POP DE 
NÔP 


POP AF 


LBO2A: 


8026 Ei 
8027 DI 
8028 C1 
8029 C9 
802A 00 


8025 F1 


Pour ceux qui ne connaîtraient 
pas le langage Pascal, nous allons 
en dire quelques mots. 

Le langage Pascal a été déve- 
loppé en 1971 par le Pr. Niklaus 
WIRTH à l’université technique 
de Zurich ; ce langage fut surtout 
utilisé, au début de son exis- 
tence, dans les universités, mais 
depuis le début des années 80, 
il connaît un grand essor et est 
utilisé dans de nombreuses appli- 
cations professionnelles. C'est un 
langage mettant en application la 
méthode de programmation 
appelée programmation structu- 
rée. 


UN FRANÇAIS 
QUI ETONNE L'AMERIQUE 


Mais avant de parler de ce qui a 
fait le succès de TURBO PAS- 
CAL, nous dirons quelques mots 
de son concepteur qui est fran- 
çais et s’appelle Philippe KAHN. 
Il a fondé, aux Etats-Unis, une 
société : BORLAND INTERNA- 
TIONAL. La qualité et les prix ridi- 


Blaise PASCAL par QUESNEL 


culement bas de ses logiciels ont 
fait la force et la renommée de 
cette société. Pour s’en rendre 
compte, il suffit de regarder le 
prix du compilateur TURBO PAS- 
CAL sur AMSTRAD : 741,25 F, 
alors que jusqu'à ces dernières 
années le prix d’un compilateur 
Pascal souvent moins performant 
était de 10 à 20 fois supérieur. 


UN COMPILATEUR TURBO 


Tout le monde connaît l'intérêt 
d'un langage compilé, mais 
regrette souvent le temps passé 
sous des éditeurs peu perfor- 
mants puis en compilation pour 


s'apercevoir qu'il restait une. 


erreur et qu'il fallait revenir sous 
l'éditeur, rechercher cette erreur 
et recompiler. Comme nous le 
verrons par la suite, TURBO PAS- 
CAL rend aisées toutes ces 
tâches ingrates. Mais faisons un 
essai de ce fameux compilateur 
turbo. 

TURBO PASCAL est un compila- 
teur qui tourne sous CP/M ; nous 
passons donc sous CP/M et 


un certain nombre de fichiers 
.PAS, qui sont des fichiers source 
de programmes PASCAL de 
démonstration que nous avons 
beaucoup appréciés, et enfin un 
fichier READ.ME qui est assez 
explicite par son nom. Ce dernier 
est un fichier texte qui contient 
un certain nombre de conseils et 
d'explications quant à l'installa- 
tion et l'utilisation de TURBO 
PASCAL sur AMSTRAD. 
TURBO PASCAL est un compila- 
teur qui contient son propre édi- 
teur de texte ; nous allons donc 
appeler TURBO pour écrire notre 
premier programme PASCAL. Les 
premiers messages s'affichent, 
nous voyons que nous sommes 
en possession de la version 
3.00A de TURBO PASCAL pour 
CP/M-80,280. Et nous avons le 
message : INCLUDE ERROR 
MESSAGES (Y/N) ?. Si nous 
répondons Ÿ, nous avons un 
menu qui s'affiche, ainsi que la 
quantité d'octets mémoires dis- 
ponibles, mais voyons la figure 1, 
exemple d'écran que nous allons 
expliquer. 


SE, 


Logged drive: À 
Work file: 


Main file: 


à. 


Edit Compile Run Save 

eX*ecute Dir Quit compiler Options 
Text: O bytes (8118-8118) 

Free: 6637 bytes (31197-9B06) 


regardons ce que contient la dis- 
quette TURBO PASCAL. Nous y 
trouvons un fichier TURBO.COM 
qui est le compilateur-éditeur, un 
programme d'installation du ter- 
minal propre à l'AMSTRAD, un 
fichier TURBO.MASG qui con- 
tient les messages d'erreurs, un 
fichier TURBO.OVR propre à la 
version CP/M et qui permet l'exé- 
cution de programme .COM sous 
TURBO comme des utilitaires de 
copie ou tout autre programme, 


Sur cet écran apparaît la liste des 
commandes disponibles, et l’es- 
pace mémoire disponible pour 
l'écriture de nos programmes : 
6637 octets ; la première impres- 
sion est que cet espace est plus 
que réduit sous CP/M. Il est pos- 
sible d'augmenter sa taille en 
n'incluant pas les messages d’er- 
reur ; dans ce cas, l’espace dis- 
ponible est de 7952 octets. En 
effet, sous CP/M , il reste environ 
39 k à la disposition de l'utilisa- 


teur, le compilateur TURBO en 

occupant 31 k, il ne nous reste 

donc pour loger nos sources et 
nos objets que 8 k. Mais, 
rassurez-vous, avec TURBO PAS- 

CAL, il est possible de faire des 

programmes beaucoup plus 

grands que 8 k-octets. Notons 
que, dans ce cas, nous perdrons 
les avantages de rapidité de 

TURBO PASCAL. Les program- 

mes correspondant à des applica- 

tions importantes seront compi- 
lés dans un fichier .COM, pour 
être exécutés et, dans ce cas, ils 
pourront aller jusqu'à 39 k-octets 
de code. Il faudra prendre la pré- 
caution de diviser le source en 
plusieurs fichiers qui seront inclus 

à un fichier principal lors de la 

compilation, car il ne peut ÿ avoir 

plus de 8 k-octets de source pré- 
sents en mémoire. Et si votre 

application ne tient pas sur 39 k- 

octets, il vous reste encore la 

possibilité de scinder en overlay, 
car TURBO supporte aussi cette 
technique de programmation. 

Nous venons de voir un exemple 

d'écran qui résume les comman- 

des disponibles sur TURBO. Ces 
commandes sont accessibles par 
une lettre en majuscule. 

L _: permet de changer l'unité de 
disque de travail. 

W__ permet de changer le fichier 
de travail. 

M permet de spécifier un fichier 
principal, ce dernier peut être 
différent du fichier de travail. 

E permet de passer sous l’édi- 
teur incorporé à TURBO 
PASCAL. 

C lance la compilation dans le 
mode choisi par Option. 

R permet d'exécuter un pro- 
gramme compilé ou si le pro- 
gramme n'a pas été compilé, 
le compile avant de l’exécu- 
ter. 

S permet de sauvegarder le 
source en cours. 

X permet d'exécuter un autre 
programme en cours d'utili- 
sation de TURBO. 

D permet de faire un directory 
de disque sous TURBO. 
retourne au système d'’ex- 
ploitation CP/M. 

O permet de choisir entre trois 
options, M, C et M. M est le 
code mémoire par défaut, le 
code objet se trouve en 
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mémoire près la compilation, 
C : le code objet issu de la 
compilation est écrit sur un 
fichier disque .COM, H : le 
code objet est écrit dans un 
fichier chaîné ; ce fichier ne 
contient pas la librairie Pas- 
cal et sera donc appelé par 
un autre fichier. 
Mais passons tout de suite à un 
essai de l'éditeur. Nous choisis- 
sons l'option E dans le menu, une 
question apparaît : ‘’Work file ?’”. 
Entrons essai.pas, l'écran s’ef- 
face, et nous sommes sous l'édi- 
teur. 
Nous sommes en présence d’un 
éditeur pleine page très perfor- 
mant ; les déplacements à l'inté- 
rieur d’un texte sont obtenus à 
partir du pavé des flèches de 
l'AMSTRAD, et il est possible de 
se déplacer d’un caractère, d’un 
mot, d'une ligne ou d’une page. 
Cet éditeur peut effectuer l’inden- 
tation automatique, il peut reca- 
drer chaque mot d'une ligne par 
rapport à la précédente, ce qui 
favorise la lisibilité du pro- 
gramme. À ces commandes 
s'ajoutent toutes les commandes 
d'insertion, suppression, déplace- 
ment, remplacement. Mais il 
n'est pas nécessaire de faire 
l'éloge de tels éditeurs qui sont 
bien plus agréables d'utilisation 
que les éditeurs ligne, et en plus 
quand il sont bien faits, ça ne fait 
qu'augmenter leur intérêt. 
Regardons maintenant la syntaxe 
de ce PASCAL. Il apparaît au pre- 
mier coup d'œil jeté dans le 
manuel fourni avec la disquette 
qu'il suit de la définition du PAS- 
CAL STANDARD. Il est à noter 
que ce livre est rédigé en français 
et est très bien conçu ; il contient 
tous les renseignements néces- 
saires à l'utilisation de TURBO 
PASCAL. Le débutant en PAS- 
CAL a ainsi à sa disposition une 
excellente introduction à PAS- 
CAL avec le livre et la disquette 
TURBO TUTOR, qui sont vendus 
séparément. 
TURBO PASCAL comprend un 
certain nombre d'extensions par 
rapport au PASCAL STANDARD, 
ce sont : 
— les variables du type adresse 
absolue, 
— la manipulation de bits et d’oc- 
tets, 
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— l'accès direct à la mémoire 
et aux ports d’entrées-sorties 
(la mémoire est considérée 
comme un tableau prédéclaré 
MEM de 65536 octets, il en 
va de même pour les entrées- 
sorties qui sont le tableau 
PORT de 256 octets). 

— les chaînes de caractères 
dynamiques, 

— l'ordre des sections dans la 
partie déclaration des pro- 
grammes est libre, 

— la possibilité d'accéder aux 
fonctions du système d'’ex- 
ploitation par des procédures 
et fonctions prédéfinies : 
BDOS, BIOS, BDOSHL, BIO- 
SHL, 

— la possibilité de 4 fichiers 
imbriqués, 

— la possibilité de générer du 
code machine en ligne par 
l'instruction INLINE, 

— les opérations logiques peu- 
vent se faire sur des entiers, 

— la possibilité de chaîner des 
programmes avec variables 
communes, 

— les fichiers de données à 
accès aléatoire, 

— les constantes structurées, 

— les fonctions de conversion de 
type. 

Nous avons relevé comme autre 

particularité les instructions 

BLOCKREAD et BLOCKWRITE 

qui servent aux manipulations de 

fichier sans type. Ces procédures 
travaillent sur des enregistre- 
ments de 128 octets. 

L'accès au multi-fenêtrage de 

l'AMSTRAD peut se faire par 

l'envoi de la valeur 26 à l'écran 
et des coordonnées de la fenêtre. 

Exemple : si ces coordonnées 

sont X1, X2, Y1, Y2 et ont été 

déclarées BYTE, le positionne- 
ment dans cette fenêtre se fera 

par : WRITE(# 26,CHR(X1 — 1), 

CHR(Y1 -1),CHR(X2 — 1),CHR 

(Y2-1)). 

L'utilisation des variables dynami- 

ques se fait au travers des pro- 

cédures standards NEW et DIS- 

POSE ainsi que les procédures 

MARK et RELEASE. 

TURBO PASCAL Permet les 

manipulations de chaîne et pos- 

sède de nombreuses procédures 
pour cela : CONCAT, COPY, 

DELETE, INSERT, LENGTH, POS, 

STR, VAL. 


En résumé, avec TURBO PAS- 
CAL, nous avons un compilateur 
PASCAL très complet. Notos que 
pour l’utilisation des possibilités 
graphiques de l'AMSTRAD, 
TURBO PASCAL, dans sa version 
CP/M, ne contient aucune fonc- 
tion ou procédure spécifique. 
Nous avons essayé d'utiliser les 
routines en ROM, mais ce fut 
sans grand succès. Rassurez- 
vous, il est prévu avec TURBO 
pour AMSTRAD un pack graphi- 
que qui permettra d'utiliser tou- 
tes les ressources de l'ordinateur, 
mais lorsque nous avons écrit ces 
lignes, nous ne le possédions 
pas ; lorsque nous l’aurons reçu, 
nous en dirons quelques mots. 


Après avoir passé en revue la 
syntaxe, voyons ce qui fait aussi 
la force de ce Pascal : sa rapidité 
de compilation. Il n'est pas 
nécessaire de dire que le temps 
de compilation en mémoire est 
négligeable. Lorsque’une erreur 
est rencontrée au cours de la 
compilation, il suffit d'appuyer 
sur la touche ESC pour retourner 
instantanément sous l'éditeur 
avec le curseur situé juste der- 
rière cette erreur ; il n’y a plus 
qu'à la corriger et relancer la 
compilation. La mise au point 
d'un programme est aussi aisée 
qu'en Basic. La compilation de 
programmes importants se fait 
sur disque dans un fichier .COM. 
Sur la disquette TURBO se trouve 
un programme de démonstration 
qui n'est rien d'autre qu’un 
tableur. Ce programme occupe 
1200 lignes et est compilé en 30 
secondes. || permet de mettre en 
évidence les possibilités infinies 
de TURBO PASCAL. 

Nous avons apprécié les pro- 
grammes de démonstration livrés 
avec la disquette tels que le mini- 
tableur, la commande lister, l’uti- 
lisation des fenêtres, l’utilisation 
de la ligne de commande. 
L'AMSTRAD, grâce à son sys- 
tème d'exploitation CP/M, a pu 
se doter là d’un des meilleurs 
compilateurs Pascal actuels. 


Le mois prochain, nous vous don- 
nerons le listing source d’un édi- 
teur de secteurs pour disques que 
nous avons écrit à l'aide de 
TURBO PASCAL. 


LE COIN 
BIDOUILLE 


oo) 


N°: continuons, dans ce 
numéro, la réalisation maté- 
rielle entreprise dans le numéro 
précédent. 

Comme vous l'aurez remarqué, le 
schéma donné n'était qu'un 
schéma de principe simplifié, la 
figure 1 donne le schéma de prin- 
cipe au complet. Nous rappelle- 
rons que le rôle de cette interface 
est d’amplifier les signaux issus 
du CPC et surtout d'isoler le 
microprocesseur et les circuits du 
CPC de nos réalisations. Nous 
avons donc ‘‘bufferisé”” les prin- 
cipaux signaux issus du micro- 
processeur Z80 (les signaux 
d'adresses, les signaux de don- 


WR 12 
BUSAK 13 
LS 86 


11 


Connecteur d'extension de l'AMSTRAD 
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nées et quatre des principaux 
signaux de commande : MRO, 
TORO, RD, WAR, respectivement 
demande d'accès mémoire, 
demande d'entrée sortie, lecture, 
écriture). 

Les bus adresses et commandes 
sont utilisés d’une façon unidirec- 
tionnelle par le microprocesseur ; 
en effet, c’est lui qui fournit ces 
signaux aux circuits périphéri- 
ques, par contre les données peu- 
vent circuler aussi bien du micro- 
processeur vers les circuits péri- 
phériques que des circuits péri- 
phériques vers le microproces- 
seur. |l va donc être nécessaire de 
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ne sélectionner le buffer des don- 
nées que pour les accès vers les 
interfaces extérieures, c'est-à- 
dire pour des adresses extérieu- 
res au CPC et ce afin de ne pas 
mettre de signaux sur le bus de 
données pendant les lectures 
internes. || faudra de plus que le 
buffer soit utilisé bidirectionnel- 
lement : ce sera le rôle des trois 
circuits 74LS11, 74LS86 et 
74LS32. 

Les concepteurs du CPC n'ont 
laissé comme espace adressable 
des entrées-sorties pour l’utilisa- 
teur que celui correspondant au 
bit d'adresse A10 à O volt. En 
effet, dans le CPC, chaque circuit 
périphérique dans l’espace des 
entrées-sorties du Z80 est sélec- 
tionné par un seul bit d'adresse 
choisi parmi les 8 bits de poids 
fort du bus adresse, ce qui impli- 
que, lors de la programmation en 
assembleur, de n'utiliser que les 
instructions d'’entrée-sortie du 
Z80 utilisant le registre C car ces 
dernières mettent le registre B sur 
les poids forts d'adresse. Le 
8255 (générateur de son, clavier, 
cassette) est sélectionné pour le 
bit d'adresse A11 à O volt, le port 
Centronics (imprimante) est 
sélectionné pour le bit d'adresse 
A12 à O voit. Le contrôleur 
d'écran 6845 pour le bit 
d'adresse A14 à O volt, le GATE 
ARRAY par le bit d'adresse A15 
à O volt, le bit A13 sert à l’adres- 
sage de l'interface disque. 

Les adresses disponibles pour 
l'utilisateur sont les adresses 
hexadécimales F8xx, F9xx, 
FAxx, FBxx. Nos réalisations uti- 
liseront donc ces adresses. 

Sur l'AMSTRAD existe aussi la 
possibilité de connecter des 
mémoires ROM ou RAM exter- 
nes ; pour cela, nous trouvons 
sur le bus d'expansion les 
signaux ROMDIS et RAMDIS qui, 
lorsqu'ils sont à 1 (+5 volts), 
déconnectent la ROM ou la RAM 
interne. Pour ne pas se limiter à 
quelques réalisations d’entrée- 
sortie, nous utiliserons aussi ces 
signaux pour sélectionner notre 
buffer de données. 
L'AMSTRAD existe en deux ver- 
sions : 664 avec lecteur de dis- 
quettes incorporé et 464 sans 
lecteur de disquettes mais avec 
la possibilité d'y coupler une 
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interface disque extérieure. Notre 
réalisation devra fonctionner sur 
les deux types de machines. 
Dans le cas du 664, il ne faut pas 
sélectionner les données externes 
pour les entrées-sorties disques 
(bit A13 à O volt), ce qui ne sera 
pas le cas avec le 464 équipé de 


vérité et le schéma avaient été 
donnés dans le numéro précé- 
dent, mais nous analyserons le 
schéma de commande du buffer 
de données. 

Nous trouvons un 74LS11 qui est 
un triple ET à trois entrées. Le 
premier de ces ET sert à la sélec- 


l'interface disquette. Ceci expli- 
que le strap figurant sur le 
schéma de principe, ce strap 
devra être câblé pour les utilisa- 
teurs d’un 464 et ne devra pas 
être câblé pour les utilisateurs 
d'un 664, il relie ou non le bit 
d'adresse A13. 


ANALYSE DU SCHEMA 


Nous ne reparlerons pas des buf- 
fers 74LS245 dont la table de 


connecteur mâle 50 contacts 


Ecriture du Z80 du CPC vers un circuit 
externe. 


IR 
Lecture du Z80 du CPC d’un circuit 
externe. 
Ecriture par un circuit externe dans les 
mémoires internes du CPC. 
Lecture par un circuit externe des mémoi- 
res internes du CPC. 


tion de notre interface pour les 
entrées-sorties dont le bit A13 et 
le bit A10 sont à zéro. Ces deux 
signaux étant combinés avec le 
signal TORO du microprocesseur 
dans le premier OU du 74LS32, 
qui est un quadruple OÙ à deux 
entrées, notre buffer sera donc 
sélectionné pour A13=0 et TORO 
=0 ou pour A10=0 et IORQ 
= 0 ; rappelons que la broche 19 
du 74LS245 est valide pour un 
état 0. Nous allons rappeler les 
tables de vérité de ces circuits 
(figure 8), leur brochage est 
donné en figure 9. 


pour câble autodénudant 


vers fond de panier 


co] connecteur 50 contacts femelle vers CPC : 


LS11 


Ü 
nl 
Qu 
Lo 
ss 
Ù 
Ÿ 
oo 
Lo] 


La sélection pour les accès à des 
ROM ou des RAM externes se 
fait par la combinaison des 
signaux ROMDIS et ROMEN à 
travers un OÙ. Le signal ROMDIS 
aura auparavant été inversé par 
le premier OÙ EXCLUSIF ; pour 
comprendre cet inverseur, se 
reporter à la table de vérité du OÙ 
EXCLUSIF ci-dessus. Une ROM 
externe signalera donc sa pré- 
sence par un 1 (+5 volts) sur 
l'entrée ROMDIS et pour que le 
buffer de données soit sélecté, il 
faudra ROMDIS à 1 et ROMEN à 
0. Pour des problèmes de timing 
avec l'interface disque DDI1, le 
signal à la sortie du OÙ a été légè- 
rement retardé par un circuit RC 
comprenant une résistance de 
470 ohms et une capacité de 
100 picofarads. La sélection 
d’une RAM externe ne se fera 
que par le RAMDIS ; cette RAM 
ne servira qu’au stockage de don- 
nées car elle ne sera accessible 
en écriture que par un artifice. 

Toujours dans un souci de ne pas 
se limiter en réalisation, un autre 
signal du Z80 a été utilisé pour 
sélectionner nos buffers. C'est le 
signal BUSAK. Ce signal est 
fourni par le Z80 et indique que 
ses bus ont été mis dans l'état 
haute impédance ; ce signal est 
positionné par le Z80 après 
qu'une demande d'accès au bus 
ait été formulée par un circuit 
extérieur (microprocesseur, 
contrôleur de DMA ou autre), 
cette demande d'accès étant un 
niveau O sur la broche BUSRO du 
Z80. Le signal BUS indique 
donc quand il est à O volt et, dans 
ce cas, changera le sens des buf- 
fers des signaux d'adresses et 
des signaux de commandes (bro- 
che dir des 74LS245, broche 1). 


De même, pour les données, les 
sens de lecture et d'écriture 
seront inversés suivant que le 
microprocesseur sera celui du 
CPC ou un microprocesseur 
externe. Pour modifier le sens des 
données, nous avons utilisé un 
OÙ EXCLUSIF, ce qui donne le 
fonctionnement suivant la figure 
2. 


La figure 3 donne l'implantation 
de l'interface, les figures 4 et 5 
présentent le circuit imprimé. 
Rappelons que cette interface se 
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74LS11 


branche directement sur le 
connecteur arrière du CPC et que 
ses circuits sont alimentés par 
l'ordinateur. 

Le connecteur 50 broches la 
reliant à l'AMSTRAD est un 
connecteur pour circuit imprimé 
embase femelle à souder sur 
carte au pas de 2,54, par exem- 
ple un SOURIAU HE901 E 50 Y. 
La liaison entre l'interface et le 
fond de panier se fait par un câble 
plat à 50 conducteurs ; l’'embase 
de sortie sur la carte est donc une 
embase mâle à 50 contacts avec 
ou sans verouilleur pour système 
câbles/connecteurs auto-dénu- 
dants. 


LE FOND DE PANIER 


Regardons maintenant le fond de 
panier. || comprend une embase 
mâle 50 contacts identique à 
l'embase mâle de l'interface, ce 
qui permet de les relier par un 
câble autodénudant. Il comprend 
aussi 4 connecteurs devant rece- 
voir les réalisations à venir et un 
connecteur plat en circuit 
imprimé qui recevra l'interface 
pour les possesseurs d'un 464 
avec interface DDI1. Nous avons 
choisi pour les connecteurs char- 
gés de recevoir les réalisations un 
format supérieur au bus d'expan- 
sion de l'AMSTRAD, soit 62 
contacts et ce afin de pouvoir 
relier certaines cartes d’exten- 
sions directement entre elles et 
de pouvoir aussi les alimenter en 
multitension comme +12 V et 
— 12 V. Les connecteurs d’ex- 
tension respectent le même bro- 
chage que le bus d'expansion de 
l'AMSTRAD et ce, bien sûr, sur 
les 50 premières broches. Une 
seule remarque : ATTENTION au 
sens de la nappe lorsque vous la 
presserez. Pour l'instant, nous ne 
vous donnerons pas un schéma 
d'alimentation, celles-ci se trou- 
vent facilement en kit pour des 
prix très raisonnables. Notons 
que l'alimentation de l'AMS- 
TRAD n'est pas utilisée pour ali- 
menter les montages branchés 
sur le fond de panier, mais il est 
toujours possible de la dériver par 
un strap vers le fond de panier. 
Pour chaque montage, nous vous 
donnerons sa consommation 
approximative. 
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Vous-êtes un passionné 
de micro-informatique ? 


ANT es 
AVC AL 
PAT NV 


Vos propositions seront examinées avec soin, quelle 
que soit la présentation de votre manuscrit. Prenez 
contact avec M. Marcel LEJEUNE au (99) 52.98.11. 


Collection Poche ou collection plus importante, nos 
collections sont réalisées avec une équipe de colla- 
borateurs compétents, aptes à vous aider et à vous 
conseiller. 


Editions SORACOM 


10, ev du Gi de Gexiie 
35170 BRUZ 


ABONNEZ-VOUS... 


valider le curseur clignotant avec 

COPY et entrer le titre désiré dans 

| les 18 postes utilisables. Le report 

| est de plus automatique de l'option 
‘Comptabilité journalière’” vers l’op- 
tion ‘’Budget”’. 


nn 
“ue 
Mn. ! 


HC<sS M. ROUSSELET 


Pour une fois que le Basic s’avère 
plus intéressant que l’assembleur, je 
ne résiste pas au plaisir de donner 
une suite au programme CIRCLE 
d'Eddy DUTERTRE, paru dans CPC 
n° 3. Mon petit programme ci- 
dessous permet de tracer un cercle 
quelconque en 1 à 2 secondes, ce 
qui est assez rapide. 
J.M. LAQUITTANT des Logiciels du n° 3, vous présen- Le principe : au lieu d'utiliser les 
50250 DONVILLE LES BAINS tez MULTIGESTION. Contrairement équations paramétriques classiques 
à ce que vous annoncez, il est pos- X=Yc+R cos t et Y="Yc+R sin 
Dans votre rubrique Banc d'Essai sible de titrer les rubriques. Il faut  t, on détermine une suite de 


àS 


| 
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points du cercle où les coordon- 
nées de chaque nouveau point se 
déduisent de celles du précédent. 
Les paramètres 0.01, 0.141, 
0.99 et 45 ont été choisis empi- 
riquement. 


10 INPUT "ARSCISSE DU CENTRE  :":XC 

20 INPUT "ORDONNEE DU CENTRE  :":YC 

30 INPUT "RAYON DU CERCLE SUR 

40 X1=XC+R : YI=YC 

30 E=0.01#XC+0.141#YC : F=0.01#VC-0. 141% 
XC 

60 FOR N=1 TG 45 

70 X2=E+0.99#X1-0.141#V1 : Y2=F+0,99#v1+ 
0.141#X1 

80 PLOT X1,Y1 : DRAW X2,Y2 

90 X1=X2 : YI=Y2 

100 NEXT N 


IMPRIMANTE 
PEU ECONOME 


Si vous utilisez une imprimante 
autre que la DMP 1 sur votre 
AMSTRAD, vous avez peut-être 
constaté qu'elle avait une 
fâcheuse tendance à laisser une 
ligne blanche entre deux lignes 
imprimées. Certains préconisent 
de modifier par soft (cela est pos- 
sible sur certaines imprimantes) 
l'espacement entre les lignes ; 
c'est bien, mais c’est aussi une 
manière de masquer le défaut. 

La solution passe par l'examen de 


voir original 


4 Es cable 5 cond. 


la description du connecteur 
CENTRONICS on s'aperçoit 
que, si la broche 14 est forcée à 
la masse, l'imprimante effectuera 
un saut de ligne automatique 
après chaque impression (AUTO 
LINE FEED). C'est l’origine du 
défaut car l'AMSTRAD envoie 
une masse sur ce point (toutes 
les liaisons ‘‘non utilisées’” par 
l'interface AMSTRAD étant, à 
tort, fixées à la masse). 

Le remède consiste donc à isoler 
ce point 14, au moyen d'un 
minuscule adhésif, ou à couper le 
fil correspondant sur la nappe, 
mais là, gare ! ne vous trompez 
pas. 


\ 


Christian HUGEL 
68170 RIXHEIM 


Voici comment réaliser un mira- 
cle avec très peu de compo- 
sants : avoir la couleur en possé- 
dant un AMSTRAD monoch- 


+® 


Alim. 


12 V/300 mA 


relier les bornes 2 à 6 
de la prise DIN aux 
bornes 2 à 6 de la 


D1 


D à 


prise PERITEL 


moniteur 


sortie 
12 v/300 mA 


rome. Naturellement, vous aurez 
compris qu'il ne s’agit pas de 
transformer le moniteur, mais 
plus simplement de réaliser un 
cordon qui raccordera la console 
au téléviseur couleur familial, 
pourvu que celui-ci soit doté 
d'une prise Péritel. Le coût de la 
réalisation est extrêmement bas, 
même en tenant compte de l’ali- 
mentation 12° volts dont nous 
donnons un schéma. Cette ali- 
mentation permet de déconnec- 
ter la partie réception HF du télé- 
viseur. Elle est indispensable car, 
l'AMSTRAD fonctionnant sous 5 
volts, ne permet pas de comman- 
der la commutation via le câble. 
Nomenclature 
des composants 
— 1 connecteur Péritel 
— 1 prise DIN mâle 6 broches à 
60° 
— 3 mètres de câble à 5 conduc- 
teurs 
— 1 résistance 100 ohms (brun- 
noir-brun-or) 
— 1 alimentation 12 V/500 mA 
type calculatrice 
ou 


— 1 transformateur 220 V/12 V 


— 4 diodes 1N4001 ou 1N4007 
— 1 condensateur 1000 yF/35 V 


Schéma de l'alimentation 


oo a 


TV couleur 


une émission 
NUIT 


Implantation 


1000h1F/25Y 


Branchement 
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LES DISQUETT 


ous les programmes parus 

dans CPC sur une disquette, 
pour ne pas perdre de temps à les 
saisir. L'idée n'est-elle pas 
bonne ? Sur la même disquette 
seront regroupés les programmes 
parus dans deux numéros suc- 
cessifs de CPC. 
Le tarif, port compris, 140 F pour 
les abonnés. JOINDRE IMPERA- 
TIVEMENT VOTRE ETIQUETTE 
D'ABONNE AU CHEQUE DE 
COMMANDE. 
Pour les non-abonnés, le prix est 
de 170 F, toujours port compris. 
Commandez vos disquettes 
directement aux Editions SORA- 
COM. Pas de contre-rembourse- 
ment. 
Les programmes contenus par 
ces disquettes sont tels que 
publiés dans la revue et n'ont 
subi aucune modification. À vous 
de les adapter à vos besoins, si 
vous le désirez. 


A l'heure où vous lirez ces lignes, 
les disquettes n° 1 et n° 2 seront 
disponibles. Commandez-les 
sans tarder. 


CPC DISC 
N?2 
— Cercles en Basic 


— Char d'assault 
— Bruits de vagues 


— Redéfinition du pavé numéri- 


que 


ES DE CPC 


— Consommation de carburant 
— Fonction Circle 

— Maze 

— Redéfinition de caractères 
— Carré magique 

— Lexique anglais-français 

— Fichier lexique de 286 mots 
Traducteur Morse 

— Tables de multiplication 

— Curseur clignotant 


BON DE COMMANDE 
(valable jusqu'à épuisement des stocks) 


[: CPC DISC N° 1 - 


L} CPC numéro 


Abonné Non-abonné 


Entourez le numéro du disque choisi ou de la revue. 


Frais de port : 


6,50 F pour un où deux numéros de CPC. 


Franco pour CPC DISC. 


Ci-joint, chèque bancaire ou postal de 


ROUTINES 


AU-DESSUS DE 


TOUS SOUPÇONS 


uand on programme en 

Assembleur, il est souvent 
inutile de réécrire des routines qui 
existent déjà dans le système, 
surtout lorsqu'elle sont compati- 
bles d'un CPC à l'autre. 


L'une des plus connues (elle est 
même utilisée par certains pro- 
grammeurs en Basic) est BB18. 
Elle permet d'attendre que l'utili- 
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sateur ait frappé une touche du 
clavier. Elle ne nécessite pas de 
conditions d'entrée particulières. 
A la sortie, on récupère dans l'ac- 
cumulateur le code du caractère 
ou le ‘’Token'’ correspondant. Si 
vous ne voulez pas attendre 
(donc bloquer le programme) la 
frappe d'une touche, mais sim- 
plement la saisir ‘’au vol’, utili- 
sez plutôt BB1B. 

Et pour afficher le caractère à 
l'écran ? C'est très simple, le 
code ASCII du caractère étant 
dans l’accumulateur, on appelle 
la routine BB5D et le tour est 
joué. Attention, les registres (AF, 
BC, DE, HL) sont tous modifiés 
par cette routine, il faut donc 
penser à les préserver. Cette rou- 
tine déplace également le curseur 


vers la droite. Pratique, non ? 
Ah, vous vouliez positionner le 
curseur avant d'écrire le carac- 
tère, donc réaliser un LOCATE. 
Qu'à cela ne tienne, BB75 réalise 
le travail. Vous mettez dans H le 
numéro de la colonne, dans L 
celui de la ligne et vous appelez 
la routine. Attention, AF et HL 
sont modifiés. Colonne 1, ligne 1, 
place le curseur en haut, à gau- 
che de l'écran. 

Et si vous en avez assez de voir 
le contenu de l'écran, vous pour- 
vez l'effacer en lui affectant la 
couleur de l'encrier ©. Il n'y a pas 
de condition d'entrée mais, en 
sortie, les registres AF, BC, DE, 
HL sont modifiés : pensez à les 
sauvegarder. L'adresse ? BC14. 
A la prochaine fois ! 


La gestion de fichier la plus complète fonctionnant 
pour les 464 et 664. Entièrement en LANGAGE MA- 
CHINE. Fonctions de calcul, de tri, de recherche 


multicritères, impressions paramétrables, liaison 
avec TEXTOMAT pour mailing... Documentation fran- 
çaise de 60 pages. 


Prix : 450 FTTC - Réf. : AM 304 


Traitement de texte de qualité professionnelle pour 
tous. Tabulation, recherche, remplacement, insertion, 
manipulation de paragraphes, calcul. Accents à 
l'écran et imprimante. Module permettant de gérer 
tout type d'imprimante. Ecrit en LANGAGE MACHINE. 
Liaison avec DATAMAT pour mailing et lettres, types 
personnalisées... TEXTOMAT c'est la solution traitement 
de texte sur CPC. Documentation complète. 


Prix : 450 F TTC - Réf. : AM 305 


MICRO APPLICATION 


43, rue Sainte Cécile 
75009 PARIS 
Tél. : (1) 732.92.54 


De nombreux trucs et astuces pour le CPC 464. 
La structure hardware du système d'exploitation, 
des tokens BASIC, du dessin avec le joystick, des 
applications de la technique des fenètres, et d'un 
grand nombre de programmes intéressants tels 
qu'une gestion de fichier complète, d'un éditeur de 
son, d'un générateur de caractères commodes jus- 
qu'aux listings complets de jeux passionnants. 


Prix : 449 F TTC - Réf. : ML 112 


Ce livre contient de super programmes, notamment 
un désassembleur, un éditeur graphique, un éditeur 
de texte... tous les programmes sont prêts à être tapés 
et abondamment commentés. 


Prix : 429 F TTC - Réf. : ML 119 


Ce livre est une introduction complète et didactique 
au BASIC du micro-ordinateur AMSTRAD CPC 464. 

Il permet d'apprendre rapidement et facilement la 
programmation (instructions BASIC, analyses des 
problèmes, algorythmes complexes... 

Principaux thèmes abordés - Les bases de la pro- 
grammation - Bit, Octet, ASCII - Instructions du BASIC - 
Organigrammes - Les fenêtres - Programmes BASIC 
plus poussés - Le programme et menus. 
Comprenant de nombreux exemples, ce livre vous 
assure un apprentissage simple et efficace du BASIC 
CPC 464. 


Prix : 449 F TTC - Réf. : ML 118 


Le bon départ avec le CPC 464! Ce livre vous ap- 
porte les principales informations sur l'utilisation, les 
possibilités de connexions du CPC 464 et les rudi- 
ments nécessaires pour développer vos propres pro- 
grammes. C'est le livre idéal pour tous ceux qui 
veulent pénétrer dans l'univers des micro-ordinateurs 
avec le CPC 464. 


Prix : 99 FTTC - Réf. : ML 120 


Voici la clé du monde de l'aventure! Ce livre fournit 
un système d'aventures complet, avec éditeur, inter- 
préteur, routines utilitaires et fichiers de jeux. Ainsi 
qu'un générateur d'aventures pour programmer 
vous-même facilement vos jeux d'aventures. Avec, 
bien sûr, des programmes tout prêts à ètre tapés. 


AMSTRAD Prix : 429 F TTC - Réf. : ML 121 


LA BIBLE DE L'AMSTRAD CPC est une aide indispen- 
sable pour les programmeurs en BASIC et le MUST 
absolu pour les programmeurs en assembleur. Cet 
ouvrage de référence qui révèle vraiment tous les 
secrets du CPC, est le fruit d'un travail minutieux de 
plusieurs mois. 

Contenu : - organisation de la mémoire - le pro- 
cesseur - particularité du Z 80, du CPC - GATE ARRAY - 
le contrôleur vidéo - la ROM vidéo - le CHIP sonore - 
les interfaces - les systèmes d'exploitation - utilisation 
des routines avec l'exemple du HARD COPY - le géné- 
rateur de caractères - l'interpréteur BASIC - BASIC et 
langage machine - le listing de la ROM - etc. 


Prix : 249 F TTC - Réf. : ML 122 


"Le langage machine pour l'AMSTRAD CPC" est fait 
pour tous ceux qui considèrent que le BASIC n'est 
plus assez puissant ni assez rapide. Des bases de la 
programmation en langage machine au mode de 
travail du processeur Z 80 en passant par une des- 
cription précise de ses instructions ainsi que l'utili- 
sation des routines systèmes. 

Tout est expliqué complètement et avec de nombreux 
exemples. 

Le livre contient des programmes complets : un as- 
sembleur, un désassembleur et un moniteur. Grâce 
à ce livre, le langage machine n'aura plus de secret 
pour vous. 


Prix : 429 F TIC - Réf. : ML 123 


Tout sur la programmation et la gestion des données 
avec le floppy DDIA et le 6641 Utile au débutant 
comme au programmeur en langage machine. 
Contient le listing du DOS commenté, un utilitaire qui 
ajoute les fichiers RELATIFS à l'AMDOS avec de nou- 
velles commandes BASIC, un MONITEUR disque et 
beaucoup d'autres programmes et astuces. Ce 
livre est indispensable à tous ceux qui utilisent un 
floppy ou un 664 AMSTRAD. 

ML127.449 FF. 300 p. 


Les PEEKS, POKES et CALLS sont une introduction aisée 
à la compréhension du système d'Exploitation et du 
Langage Machine de l'AMSTRAD CPC. De nom- 
breuses et intéressantes possibilités de programmation 
et d'applications sont abordées dans ce livre. Quel- 
ques extraits : - Configuration "HARDWARE" du CPC - 
Système d'exploitation et interpréteur - PEEK et POKE 
- CALL - Calcul binaire - Protection de la mémoire - 
Bankswitching - Lire la ROM - Mémoire écran - Gra- 
phisme - Scrolling - interruptions en BASIC - Repré- 
sentation en mémoire de lignes BASIC - Garbage 
collection - Fonctionnement du microprocesseur 
Z 80 - Possibilités d'adressage - Nombreuses routines 
en Langage Machine. 

Avec ce livre, vous comprendrez aisément le fonc- 
tionnement du CPC et profiterez pleinement de ses 
extraordinaires capacités. 


Prix : 99 F TTC - Réf. : ML 126 


Les livres M.A. sont également distribués par les éditions RADIO et présents chez votre revendeur habituel. 


REVENDEURS CONTACTEZ-NOUS DES MAINTENANT. 


Catalogue 10 FF pour participation aux frais d'envoi . 
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DESIGNATION QUANTITÉ 


TOTAL TIC 


Nom, Prénom 


Adresse 


O Mandat CO Chèque EU CCP. 
Libellez vos chèques à l'ordre de Micro-Application. 


Ville 


CP. 


+ 20 F de frais d'envoi 
ou 40 F pour envoi recommandé. 


FF 0000 0000000000 


Date et signature 


CPC1085 


Deux fainéants astucieux pour 
KILOBYTE ce mois-ci. 

Eric BAJART nous propose d’ap- 
prendre le MORSE en traduisant 
les textes entrés en codes visuel 
et auditif. Si ce n’est pas la meil- 
leure méthode pour débuter, elle 


KILOBYTE 


Faites-nous parvenir vos pro- 
grammes sur cassette, accompa- 


Imaginez que votre AMSTRAD 
vient de tomber en panne : il ne 


lui reste plus qu’un petit kilo-octet 
de mémoire. Saurez-vous écrire 
des programmes originaux per- 
formants qui ne tiennent que 
dans ce kilo-octet ? Attention ! 
vos programmes devront être 
écrits en Basic, mais les routines 
en code machine présentées sous 
forme de data sont acceptées. 


CALAMITES 


Quelques erreurs se sont glissées 
dans le programme VIE PRATI- 
QUE publié dans le n° 2. Lorsque 
l'on choisit l'option 2 (autre date) 
pendant l'exécution du 
biorythme, le jour de la date de 
naissance ainsi que l’âge sont 
erronés. Cela est dû au fait que 
la même variable (W) s'applique 


à J1 et J2. Il est possible d'y DES JEUX ET DES NOM ............... 

remédier de la façon suivante : UTILITAIRES Prénom ....,.......... 

Ligne 280 Vous nous le demandez ? D'’ac- Adresse, ::zanenammeriéesesasen teste 
INPUT ‘‘J="':J0 cord, mais participez au classe- Code Postal ....... 

Ligne 360 ment en nous donnant votre avis Ville sisrrco mesh nesimnes 

CLS:J1 =J0 d'utilisateur. Ci-joint, chèque bancaire ou postal de F. 
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gnés d’une brève explication. Les 
cassettes vous seront retournées 
si vous le demandez. 

Alors, tous à vos claviers. Il faut 
réussir à loger le maximum d'in- 
telligence dans un kilo-octet. Les 
meilleurs programmes seront mis 
à l'honneur dans CPC et leurs 
auteurs récompensés. 


Ainsi, les paramètres affichés 
sont corrects. De même, la par- 
tie zodiaque du programme se 
plante inexorablement quand on 
tombe sur un H=11 après jan- 
vier. Tout rentre dans l’ordre en 
ajoutant une ligne 14151FH=12 
THEN HO. Remerciements à D. 
SAUVAIRE et Albert RIGAL pour 
leurs courriers nous signalant ces 
erreurs et pour les solutions qu'ils 
ont apportées. 

FRS PR EE DR RE EE RSS 


UN HIT-PARADE 


pourra peut-être susciter des 
vocations. 

Michel DUBOIS, quant à lui, pré- 
fère faire réviser aux enfants leurs 
tables de multiplication, tout en 


faisant travailler 


la mémoire. 


Savant mélange de 7 x 5= et du 
jeu du ‘‘retourné’’, le tout en 
quelques lignes. Au travail ! 


Conservez vos casseftes 
en les protégeant. 


SORACOM 
Le Grand Logis — 10, Avenue du 
Général de Gaulle — 35170 BRUZ 
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OZDOUIIN 


La place réservée aux petites annonces est 
limitée. En conséquence, celles-ci passent 


dans leur ordre d'arrivée. Par contre, les peti- 


tes annonces farfelues sont systématique- 
ment rejetées... De même, commeil est peu 
probable qu'il existe des ‘’généreux dona- 
teurs’ de matériels ou de logiciels, les peti- 
tes annonces faisant appel à ces philantro- 
pes ne seront insérées que si la place libre 
le permet. 

En conséquence, réfléchissez bien avant 
d'envoyer vos textes. 

Les petites annonces doivent impérativement 
nous parvenir sur la grille (découpée ou pho- 
tocoplés), le texte étant rédigé à raison d’un 
caractère par case. 

Enfin, toute annonce non accompagnée de 
timbres ne sera pas insérée. 


Achète ou échange programmes sur AMS- 
TRAD. Cherche Amstradistes dans la région 
de Metz. Vends SPECTRUM 48 ko (06/85) 
+ 58 programmes. Vincent BASSI, 12 rue 
des Roses, 57000 METZ, tél.: (8) 
765.59.00. 


Achète ou échange programmes sur AMS- 
TRAD. Cherche Amstradistes dans la région 
de Metz. Vends SPECTRUM 48 ko (06/85) 
+ 58 programmes: Vincent BASSI, 12 rue 
des Roses, 57000 METZ, tél.: (8) 
765.59.00. 


Achète ou échange programmes sur AMS- 
TRAD. Cherche Amstradistes dans la région 
de Metz. Vends SPECTRUM 48 ko (06/85) 
+ 58 programmes. Vincent BASSI, 12 rue 
des Roses, 57000 METZ, tél.: (8) 
‘765.59.00. 


Vends ou échange 4 super logiciels en cas- 
settes tous neufs pour AMSTRAD CPC 464 
ou 664. Roland on the ropes : 80 F, Galaxia : 
60 F, Ghosbuster : 100 F, Sorcery : 100 F. 
M. LEE, La Solidarité, Chemin de la Bigotte, 
Bat. N 24, Appt. 957, 13015 Marseille, tél.: 
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(91) 51.86.03. 


Math, stat, R.O., gestion financière : cède ou 
échange des programmes utilitaires sur cas- 
sette ou disquette en version non protégée 
si réciprocité. Claude DANIS, 13 rue de la 
République, 42000 ST. ETIENNE. 


Vends ou échange pour AMSTRAD CPC 664 
ou 464 programmes sur disquettes (Knight 
Lore, Fighter Plot, Amsword (trait. text) et 
CP GRAPH). Ecrire à : Xavier FISSELIER, 86 
rue Félibien, 44000 Nantes. 


Math, stat, R.O., gestion financière : cède ou 
échange des programmes utilitaires sur cas- 
sette ou disquette en version non protégée 
si réciprocité. Claude DANIS, 13 rue de la 
République, 42000 ST. ETIENNE. 


Vends ou échange pour AMSTRAD CPC 664 
ou 464 programmes sur disquettes (Knight 
Lore, Fighter Plot, Amsword (trait. text) et 
CP GRAPH). Ecrire à : Xavier FISSELIER, 86 
rue Félibien, 44000 Nantes. 


Je cède, suite à achat lecteur de disquettes, 
les programmes suivants qui sont sur casset- 
tes : Initiation au Basic Amstrad : premiers 


-pas SOFT 411 (2K7), Tableur Easy-Amsalc : 


Soft 453 (2 K7), Budget familial de chez Spri- 
tes, Tableur ‘’ Amcalc’’ de chez SDI, Gestion 
Fichier ‘’ Ambase’’ de chez SDI, Programmes 
éducatifs : SOFT 405, Les lettres magiques, 
SOFT 406 : L'ardoise magique, SOFT 407 : 
L'horloger un, SOFT 444 : Electro Freddy. 
Programmes jeux : SOFT 112 : Harrier 
Attack, Soft 114 : Sultan’s Maze, Soft 115 : 
Oh Mumm. 

Je recherche tout logiciel de gestion sur dis- 
quettes de préférence. Contact avec posses- 
seurs lecteur de disquettes. Dominique 
BLANDIN, 6 place du Pré Botin, À 636, 
Chambpenoist, 77160 PROVINS, tél.: 
067.60.19. 


Coupon à renvoyer accompagné de 3 timbres à 2,20 F à : 
SORACOM, 10 Avenue du Général de Gaulle, 35170 BRUZ 


Cherche correspondants (es), Français et 
étrangers, -pour échange de programmes, 
trucs, astuces, etc. Vends aussi cause dou- 
ble emploi 1 AMSTRAD CPC 464 + imp. 
DMP1 (AMSTRAD) + 180 programmes. 
Vente séparée possible. FREY Daniel, 8, imp. 
des Hirondelles, 67110 REICHSHOFFEN, tél.: 
(88) 09.70.79 (après 19 h). 


Cherche correspondants (es), Français et 
étrangers, pour échange de programmes, 
trucs, astuces, etc. Vends aussi cause dou- 
ble emploi 1 AMSTRAD CPC 464 + imp. 
DMP1 (AMSTRAD) + 180 programmes. 
Vente séparée possible. FREY Daniel, 8, imp. 
des Hirondelles, 67110 REICHSHOFFEN, tél.: 
(88) 09.70.79 (après 19 h). 


Cherche correspondants (es), Français et 
étrangers, pour échange de programmes, 
trucs, astuces, etc. Vends aussi cause dou- 
ble emploi 1 AMSTRAD CPC 464 + imp. 
DMP1 (AMSTRAD) + 180 programmes. 
Vente séparée possible. FREY Daniel, 8, imp. 
des Hirondelles, 67110 REICHSHOFFEN, tél.: 
(88) 09.70.79 (après 19 h). 


Adil BELAOUNI cherche personnes possé- 
dant AMSTRAD CPC 464 ou 664 pour 
échanges programmes et idées. Tél.: (50) 
92.65.55 le soir ou adresser liste au 44B, rue 
des Vignes, 74240 GAILLARD. 


Vends cassettes de 15 jeux déplombés pour 
AMSTRAD : 150F. (Rallye Il, Sorcery, Alien 
8, Defend or Die, Millionnaire...). Ecrire à M. 
Jacques POTET, Berry-Bouy Le Tronc, 
18500 MEHUN/YEVRE, tél.: (48) 26.81.77 
après 18h. 


Cherche possesseurs d'AMSTRAD CPC 464 
pour échanges logiciels (jeux, utilitaires) et 
astuces. Réponses assurées. J.N BOULMIER, 
67 Grande Rue, 45110 CHATEAUNEUF SUR 
LOIRE. 
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ANNONCEZ-VOUS ! 


les petites annonces et les messages 


a 131: D: 


En retournant ce bon de commande à NORSOFT - 49, ru > 


Je désire recevoir 1 TYRANN pour [] AMSTRAD CPC 464 e 
Je joins un chèque de 205,00F (185 F + 20F port) à l’ordre @ 


Nom 2 
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CHINSON 
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27,rue de Léningrad 75008 Paris Tél.:(1)387.27.27+ ERE INFORMATIQUE 


